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FOREWORD 


The  Depot  Performance  Data  Base  System  (DBS)  is  a  computer-based  manage¬ 
ment  information  system  designed  to  support  analyses  of  depot  maintenance 
performance  within  the  Department  of  Defense.  It  operates  on  depot  main¬ 
tenance  cost  and  production  data  compiled  annually  by  the  Military 
Departments . 

The  system  was  developed  by  the  Logistics  Management  Institute  under  the 
guidance  of  the  Directorate  for  Maintenance  Policy,  Office  of  the  Assistant 
Secretary  of  Defense  (Manpower,  Reserve  Affairs,  and  Logistics),  OASD(MRAfitL). 
It  is  operational  on  an  IBM  3032  computer  (System  K)  at  the  Air  Force  Data 
Services  Center  in  Washington,  D.C.,  utilizing  the  INQUIRE  data  base  manage¬ 
ment  system  (DBMS)  software  package. 

This  Users  Manual  describes  the  capabilities  of  the  Depot  Performance  DBS 
and  provides  instructions  for  its  operation  and  use.  The  Manual's  content  and 
format  follow  the  guidelines  prescribed  in  DoD  7935. 1-S,  "Automated  Data 
Systems  Documentation  Standards,"  September  1977. 
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SECTION  1 .  GENERAL 


1.1  Objectives  of  the  Manual 

1.1.1  Purpose 

The  purpose  of  this  Manual  is  to  provide  the  information  necessary  to 
operate  and  use  the  Depot  Performance  Data  Base  System  (DBS) .  The  Manual  is 
intended  to  be  used  by  any  programmer  or  analyst  tasked  to  provide  OASD(MRA&L) 
with  data  processing  and  information  retrieval  support  using  the  DBS.  End 
users,  such  as  OASD(MRAScL)  personnel,  can  also  benefit  from  reading  the 
Manual.  It  should  assist  them  in  using  the  DBS's  full  capability  to  support 
their  information  requirements . 

1.1.2  System  Addressed 

The  Depot  Performance  DBS  uses  the  INQUIRE  (Release  10,  Version  1)  DBMS 
package  currently  installed  on  System  K  (an  IBM  3032  computer)  at  the  Air 
Force  Data  Services  Center  (AFDSC) ,  the  Pentagon,  Washington,  D.C.  The  system 
is  currently  operational  (as  of  February  1981)  and  has  been  used  to  produce 
management  information  reports  for  the  Directorate  for  Maintenance  Policy, 
OASD(MRA&L) . 

1.2  Background  and  References 

1.2.1  Function  of  the  System 

The  Depot  Performance  DBS  is  a  management  information  system  designed  to 
extract  information  from  historical  cost  and  production  data  on  depot  mainte¬ 
nance  programs  in  the  Department  of  Defense.  The  cost  and  production  data  are 
submitted  annually  to  OSD  by  the  Military  Departments,  in  response  to  the 
reporting  requirements  of  DoD  7220. 29-H,  "Depot  Maintenance  and  Maintenance 
Support  Cost  Accounting  and  Production  Reporting  Handbook."  (The  reporting 
requirements  of  DoD  7220. 29-H  are  reproduced  in  Appendix  D.)  The  7220.29 
data,  normally  submitted  on  magnetic  tapes  each  December,  cover  the  depot 
maintenance  work  completed  in  the  preceding  fiscal  year. 

The  Depot  Performance  DBS  is  also  used  to  maintain  the  7220. 29-H  data 
base.  One  such  maintenance  task  is  the  annual  "loading"  of  submitted  data. 
That  task  involves  merging  the  new  7220. 29-H  data  into  the  existing  INQUIRE 
data  base  and  creating  back-up  tape  copies  of  the  data.  Other  data  base 
maintenance  tasks  of  the  DBS  include  storing,  processing,  and  managing  the  DBS 
files  to  satisfy  AFDSC  system  and  administrative  requirements.  Each  of  these 
maintenance  functions  is  covered  in  the  Manual. 

1.2.2  System  History 

The  Logistics  Management  Institute  initially  developed  the  Depot  Per¬ 
formance  DBS  to  meet  information  requirements  of  the  Directorate  for  Mainte¬ 
nance  Policy,  0ASD(MRA&L).  The  initial  system  was  documented  in  LMI  report 
"Depot  Maintenance  Performance,"  November  1979.  That  system  was  installed  on 


System  I  (an  IBM  360/75  computer)  at  AFDSC,  with  a  data  base  consisting  of  FY 
78  Army  7220.29  records.  In  subsequent  tasking,  LMI  transferred  the  system  to 
System  K  and  expanded  the  data  base  to  include  the  complete  set  of  7220.29 
records  (Army,  Air  Force,  Navy,  and  Marine  Corps),  for  both  FY  78  and  79.  The 
system  was  also  refined  to  satisfy  0ASD(MRA&L) ' s  information  requirements. 
The  expanded  system's  capabilities,  and  its  role  in  supporting  0ASD(MRA&L)MD' s 
evaluation  of  depot  maintenance  programs  are  discussed  in  a  recent  LMI  report 
"Depot  Performance  Analysis,"  March  1981. 

This  Manual  has  been  prepared  by  LMI  under  a  contract  with  0ASD(MRA&L) 
(Contract  No.  MDA  903-80-C-0554)  to  document  the  system  and  provide  instruc¬ 
tions  for  its  operation  and  use. 

1.2.3  References 


The  following  references  are  recommended  as  useful  supplements  to  the 
Manual. 

a.  DoD  7220. 29-H:  "Depot  Maintenance  and  Maintenance  Support  Cost 

Accounting  and  Production  Reporting  Handbook,"  October  1975. 

The  7220.29  Handbook  defines  the  structure  and  content  of  the  depot 
cost  and  production  data.  Consequently,  it  is  required  reading  for 
all  programmers,  analysts,  and  users  of  the  Depot  Performance  DBS. 

b.  LMI  Reports:  Task  ML914,  "Depot  Maintenance  Performance,"  November 
1979,  DoD  Contract  No.  MDA  903-77-C-0370;  Task  ML005 ,  "Depot  Per¬ 
formance  Analysis,"  March  1981,  DoD  Contract  No.  MDA  903-77-C-0370 . 

Contact:  Logistics  Management  Institute 

4701  Sangamore  Road,  Washington,  D.C.  20016 
Telephone:  (301)  229-1000  or  Autovon:  287-2779/2127 

The  LMI  reports  provide  useful  information  on  the  depot  maintenance 
responsibilities  and  information  needs  of  OASD(MRASL).  The  first 
report  (Task  ML914)  also  documents  the  operation  and  use  of  the 
initial  Depot  Performance  DBS.  That  documentation  is  updated  and 
expanded  in  this  Manual. 

c.  INQUIRE  Manuals:  INQUIRE  User  Language  Tutorial  and  INQUIRE  Instal¬ 
lation  and  Operations  Guide. 

Contact:  Infodata  Systems  Inc.,  Washington  Regional  Office 
5205  Leesburg  Pike,  Falls  Church,  VA  22041 
Telephone:  (703)  578-3430  "Hot  Line"  (703)  578-0008 
(Manuals  may  also  be  obtained  through  AFDSC.) 

The  INQUIRE  DBMS  is  a  proprietary  software  product  of  Infodata 
Systems,  Inc.  The  INQUIRE  Manuals  provide  detailed  information  and 
instructions  on  the  operation  and  use  of  the  INQUIRE  DBMS.  The  "hot 
line"  is  useful  for  quick  answers  to  technical  questions.  Infodata 
also  sponsors  periodic  classes  and  seminars  to  aid  INQUIRE  users. 
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d.  AFDSC  Publications:  AFDSC  Users  Handbook  (Draft),  Vol.  VI  -  IBM 

Computer  Systems;  AFDSC  INQUIRE  DBMS  Users  Handbook  (Draft). 

Contact:  Air  Force  Data  Services  Center 
Directorate  of  OSD  Systems  (GN) 

The  Pentagon,  Washington,  D.C.  20330 
Telephone:  (202)  695-3389  or  Autovon:  22-3389 

These  publications  describe  the  AFDSC  IBM  operating  system  and  the 
AFDSC  INQUIRE  DBMS  installation,  including  available  utility  pro¬ 
grams  . 

e.  IBM  Manuals:  IBM  System/3032  Operating  System:  MVS  Messages 

(GC38-1008) ;  MVS  Codes  (GC38-1002);  0S/VS2  MVS  JCL  (GC28-0692); 
0S/VS2  TSO  Terminal  Users  Guide  (GC28-0645) ;  0S/VS2  TSO  Command 
Language  Reference  (GC28-0646);  IBM  MVS  Utilities  Manual 
(GC26-3902) . 

Contact:  (all  available  through  AFDSC) 

The  IBM  manuals  provide  generic  IBM  operating  system  instructions. 
The  Messages  and  Codes  Manuals  are  particularly  helpful  for  reading 
job  log  messages  (the  IBM  system  keeps  and  outputs  logs  containing 
information  on  every  job  which  is  submitted  to  the  system),  and  for 
understanding  failures/abort-ends  (ABENDs). 

1.3  Terms  and  Definitions 

Listed  below  are  terms,  abbreviations,  acronyms,  etc.  used  throughout  the 

Manual . 

ADP  -  automated  data  processing 

AFDSC  -  Air  Force  Data  Services  Center,  which  manages  the  computer 

hardware  and  the  DBMS  used  in  the  Depot  Performance  DBS. 

batch  job  -  a  self-contained  job  submitted  to  a  computer  which  is  pro¬ 

cessed  by  the  system  without  further  user  interaction.  Batch 
jobs  often  utilize  card  decks,  but  do  not  necessarily  require 
cards.  Jobs  in  the  Depot  Performance  DBS  are  processed  as 
batch  jobs  with  inputs  generated  at  a  terminal. 

data  base  -  data  organized  into  a  set  of  similarly  structured  logical 

records ,  each  of  which  describes  a  single  entity  in  a  class 
of  uniform  entities.  The  logical  records  in  the  Depot  Per¬ 
formance  data  base  are  j  ob  order  records  for  work  performed 
at  depot  maintenance  facilities. 

In  a  data  base,  each  logical  record  contains  information 
units,  or  fields,  which  provide  various  kinds  of  descriptive 
information  on  the  entity  described  by  the  record.  There  are 
50  fields  per  record  in  the  Depot  Performance  Data  Base, 
including  the  name  and  stock  number  of  the  item  repaired,  the 
labor  and  material  costs,  the  quantity  overhauled,  and  the 
name  of  the  facility  where  the  work  was  performed. 

1-3 


r 


In  addition  to  having  data  structured  into  logical  records,  a 
data  base  contains  an  index  to  ease  the  relating,  grouping, 
and  retrieving  of  records. 


A  data  base  may  be  physically  stored  on  a  variety  of  media; 
the  Depot  Performance  Data  Base  is  stored  on  magnetic  disk, 
with  a  back-up  copy  stored  on  magnetic  tape. 

DBMS  -  data  base  management  system 

Data  base  management  systems  are  software  packages  that  ease 
the  retrieving,  manipulating,  reporting,  and  maintaining  of 
data.  They  are  characterized  by  user-oriented  languages 
possessing  English-like  vocabulary  and  syntax  and  specially 
designed  software  modules  (evoked  through  commands  in  the 
language)  which  provide  powerful  and  flexible  data  handling 
capabilities . 

DBS  -  data  base  system 

JCL  -  Job  Control  Language,  which  comprises  those  statements  in  a 

job  stream  that  precede  the  actual  program  statements  or 
commands  in  the  job.  JCL  statements  provide  the  computer's 
operating  system  with  the  instructions  and  parameters  it 
requires  to  initiate  and  execute  user  programs.  IBM  JCL  for 
the  0S/VS2  MVS  operating  system  is  used  in  the  Depot  Per¬ 
formance  DBS. 

job  stream  -  the  series  of  statements  in  a  batch  job.  In  an  application 

of  the  Depot  Performance  DBS,  a  job  stream  will  contain  JCL 
statements  followed  by  a  series  of  INQUIRE  command  state¬ 
ments  . 

LMI  -  Logistics  Management  Institute 

OASD(C)  -  Office  of  the  Assistant  Secretary  of  Defense  (Comptroller) 

OASD(MRAStL)  -  Office  of  the  Assistant  Secretary  of  Defense  (Manpower, 

Reserve  Affairs,  and  Logistics) 

OASD(MRA&L)MD  -  OASD(MRAScL) ,  Directorate  for  Maintenance  Policy 

OSD  -  Office  of  the  Secretary  of  Defense 

PDS  -  partitioned  data  set,  which  is  a  computer-stored  file  that  is 

segmented  into  directly  accessible  subfiles  (or  members) 
identified  by  member  names. 

query  -  a  set  of  command  statements  written  in  the  INQUIRE  DBMS 

language.  The  term  is  used  because  the  commands  and  sub- 
comnands  in  INQUIRE  allow  the  user  to  request  information 
from  a  data  base  and  receive  the  desired  information  as 
output . 
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TSO  -  IBM  Time  Sharing  Option 

1.4  Security  and  Privacy 

The  Depot  Performance  DBS  does  not  contain  any  classified  material.  The 
system  operates  in  the  unclassified  mode  available  on  System  K  from  remote 
terminals  using  TSO.  There  are  no  privacy  restrictions  applicable  to  the 
Depot  Performance  data  base. 

Access  to  System  K  TSO  operations  requires  a  user  ID  and  password  from 
AFDSC.  The  procedures  for  obtaining  them  are  described  in  Section  3.1. 
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SECTION  2.  SYSTEM  SUMMARY 


This  Section  describes  the  Depot  Performance  DBS  in  terms  of: 

a.  System  Application 

b.  System  Operation 

c.  System  Configuration 

d.  System  Organization 

e.  System  Capabilities 

It  also  describes  the  Depot  Performance  Data  Base  and  discusses  the  input 
requirements  of  the  DBS,  together  with  the  processing  steps  and  typical 
outputs . 

2.1  System  Application 

The  Directorate  for  Maintenance  Policy,  0ASD(MRA&L),  is  responsible  for 
reviewing  and  evaluating  depot  maintenance  programs  for  the  Secretary  of 
Defense.  To  carry  out  that  responsibility,  the  Directorate  requires  extensive 
visibility  into  completed  programs  and  the  capacity  to  use  the  visibility  in 
analyzing  planned  programs.  The  Depot  Performance  DBS  was  developed  to  pro¬ 
vide  the  Directorate  with  the  required  historical  visibility. 

Beginning  with  FY  77,  the  Military  Services  provided  the  Maintenance 
Directorate  with  cost  and  production  information  on  all  depot  maintenance 

work.  For  every  completed  job  order,  the  Services  identified  the  direct  labor 
hours,  the  direct  and  indirect  labor  costs,  and  the  cost  of  material,  by 
weapon  system,  performing  facility,  work  performed,  appropriation  category, 
and  so  forth.  The  Services  submitted  that  data  on  magnetic  tape,  in  the 
format  specified  by  DoD  7220. 29-H. 

Recognizing  the  many  potential  uses  for  the  historical  cost  and  produc¬ 
tion  data,  the  Maintenance  Directorate  selected  data  base  management  as  an 
appropriate  technique  for  accessing  and  summarizing  the  data.  The  Depot 

Performance  DBS,  using  the  INQUIRE  DBMS,  resulted  from  that  selection. 

Flexibility  is  an  important  characteristic  of  the  Depot  Performance  DBS. 
While  the  Maintenance  Directorate  requires  a  variety  of  standard  reports 
(several  have  been  "built-in”  for  easy  production),  special  reports  will  also 
be  needed.  To  obtain  these  reports,  system  users  must  formulate  and  execute 
ad  hoc  queries.  Such  queries  require  that  the  user  be  familiar  with  both  the 
information  that  can  be  retrieved  from  the  7220.29  data  and  the  INQUIRE  tech¬ 
niques  for  accomplishing  the  retrieval.  As  an  aid  in  preparing  ad  hoc 

queries,  this  Manual  includes  a  separate  section  on  query  development  (Section 
4). 
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2.2  System  Operation 

Figure  2-1  identifies  the  general  steps  involved  in  operating  and  using 
the  Depot  Performance  DBS.  This  subsection  describes  each  step  in  the  figure, 
beginning  with  the  tape  submissions  by  the  Military  Services. 

Each  of  the  Military  Services  (Marine  Corps  data  are  included  on  the  Navy 
tape)  submits  its  7220.29  data  to  OASD(C),  which  then  passes  the  tapes  to  the 
Maintenance  Directorate.  The  AFDSC  (Logistics  Sytems  Division)  then  edits  the 
tapes  as  specified  by  DoD  7220. 29-H  (Appendix  D).  The  Maintenance  Directorate 
returns  any  tapes  which  fail  the  edit  to  the  Services  for  correction.  The 
edited  tapes  are  then  translated  from  Honeywell  Standard  Format  into  IBM 
Format  by  the  Logistics  Systems  Division,  AFDSC. 

Upon  completing  the  translation,  AFDSC  informs  the  Maintenance 
Directorate  of  the  reel  numbers  of  the  new  tapes  and  the  total  number  of 
records  each  Service  submitted.  The  user  of  the  Depot  Performance  DBS  can  now 
load  the  (translated)  Service  tapes  into  the  data  base  and  begin  processing. 
(Note:  this  presupposes  that  the  user  has  obtained  a  user  ID  and  password  for 
System  K. ) 

Two  maintenance  operations  "loops"  appear  next  in  the  figure.  The  upper 
loop  indicates  maintenance  operations  which  must  be  performed  each  year,  such 
as  loading  the  data  into  the  Depot  Performance  Data  Base.  The  INQUIRE  DBMS 
software  includes  a  loader  program  to  aid  users  in  creating  the  data  base. 
Other  annual  maintenance  tasks  include  making  back-up  tapes  of  both  the 
(translated)  Service  tapes  and  the  newly  created  data  base,  for  retention  in 
the  AFDSC  tape  library.  For  all  such  tasks,  the  user  will  obtain  from  AFDSC 
the  required  disk  and  tape  storage  space.  Detailed  instructions  and  programs 
for  annual  maintenance  operations  are  given  in  Appendix  B. 

The  second  maintenance  loop  indicates  "as  necessary"  maintenance  opera¬ 
tions,  which  the  user  may  perform  after  loading.  INQUIRE  utility  programs  and 
AFDSC  support  routines  are  available  to  assist  in  these  operations. 
Appendix  C  lists  data  base  maintenance  routines  which  have  been  used  in  system 
operations  to  date. 

The  final  section  of  the  figure  illustrates  the  Maintenance  Directorate's 
use  of  the  system,  including  annual  standard  reports  and  special  reports  in 
response  to  ad  hoc  requests.  For  the  former,  a  set  of  INQUIRE  queries  has 
already  been  developed  and  saved  as  cataloged  data  sets  on  public  (on-line) 
disk  storage  space  in  System  K.  Instructions  for  calling  and  executing  these 
prewritten  queries  are  contained  in  Section  3.3,  Input  Procedures. 

The  ad  hoc  applications  arise  when  the  Maintenance  Directorate  has 
special  information  requirements  not  met  by  the  standard  reports.  Developing 
the  queries  for  these  special  reports  will  usually  involve  the  user  in  an 
iterative  exercise  as  indicated  in  the  display  symbol.  For  the  ad  hoc  appli¬ 
cations,  query  development  may  range  from  minor  alterations  of  existing 
queries  to  the  development  of  totally  new  queries. 
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FIGURE  2-1.  SYSTEM  OPERATION 


2.3  System  Configuration 

The  Depot  Performance  DBS  operates  on  an  IBM  Central  Processing  Unit 
Model  3032  (System  K,  AFDSC)  with  the  0S/VS2  MVS  (Multiprogramming  Virtual 
Storage)  operating  system.  All  user  interactions  with  the  system  may  be 
accomplished  using  remote  terminals.  System  K  can  interface  with  asynchronous 
teletype-compatible  devices  up  to  300  baud  (bits-per-second)  on  a  dial-up 
basis.  (1200  baud  service  is  available  with  special  Form  1C  justification.) 
With  a  terminal,  users  may  access  and  edit  stored  job  streams,  submit  jobs  for 
execution,  and  obtain  output.  Output  may  also  be  directed  to  printers,  either 
at  the  user's  site  or  at  AFDSC.  Hook-up  arrangements  for  terminals  and 
printers  with  System  K  can  be  made  through  the  Directorate  of  System  Support, 
AFDSC . 

Physical  storage  of  the  7220.29  Depot  Performance  Data  Base  is  on  (re¬ 
movable)  3330  magnetic  disk  packs  (direct  access  storage  devices).  When  the 
user  submits  a  job  requiring  access  to  the  7220.29  data  base,  JCL  statements 
in  the  submitted  job  stream  will  cause  the  System  K  operator  to  physically 
mount  the  pack  in  a  disk  drive  for  on-line  processing.  System  K  currently  is 
limited  to  one  removable  disk  drive.  The  F£  78  and  79  data  bases  now  fully 
occupy  one  3330  disk  pack  (AFDSC  Volume  Serial  No.  OS2006) .  (Each  3330  disk 
pack  has  a  storage  capacity  of  approximately  110  million  bytes.'1  Additional 
direct  access  storage  space  for  FY  80  and  succeeding  year  dat".  bases  will  be 
required.  This  space  can  be  obtained  by  submitting  AFDSC  Form  1C  to  AFDSC-. 
With  only  one  drive  available  for  removable  disks,  just  two  years  of  depot 
performance  data  can  be  on-line  simultaneously. 

The  system  back-up  tapes  are  AFDSC  Series  85xxx  or  86xxx  tapes.  System  K 
has  six  drives  for  these  nine-track,  1600/6250  bpi  (bits-per-inch)  standard 
label  tapes.  Once  tapes  are  created  and  catalogued,  the  user  manages  them  in 
the  AFDSC  Tape  Library  System  (TLS)  by  indicating  desired  actions  on  tape 
library  lists,  issued  and  distributed  by  AFDSC.  User  requests  for  tape  lists 
should  be  directed  to  AFDSC(GN). 

Software  required  for  the  Depot  Performance  DBS  is  the  INQUIRE 
(Release  10,  Version  1)  DBMS  package,  which  is  currently  available  on  System 
K.  Later  releases  of  INQUIRE,  provided  they  are  compatible  with  Release  10, 
Version  1,  may  also  be  used. 

2.4  System  Organization 

The  organization  of  the  Depot  Performance  DBS  is  best  understood  by 
examining  the  statements  in  a  typical  job  stream  for  an  application.  Every 
job  stream  has  JCL  statements  followed  by  INQUIRE  statements.  The  JCL  state¬ 
ments  activate  those  components  of  the  system  which  have  an  administrative  or 
job  control  function.  The  INQUIRE  statements  activate  those  components  of  the 
system  which  perform  the  information  retrieval  functions.  They  provide  neces¬ 
sary  parameters  and  codes  for  the  INQUIRE  DBMS  and  contain  the  commands  which 
activate  the  data  retrieval,  manipulation,  and  report  formatting  modules  in 
the  DMBS  software.  (Taken  together,  the  INQUIRE  command  statements  form  a 
query  in  the  Depot  Performance  DBS.) 

From  the  user's  point  of  view,  therefore,  the  Depot  Performance  DBS  has  a 
two-part  organizational  structure  consisting  of  job  control  components  and 
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data  handling  components.  The  remainder  of  the  system  involves  the  TSO  com¬ 
mands,  which  are  needed  to  operate  on  the  IBM  operating  system  (0S/VS2  MVS) 
for  System  K.  These  commands  are  discussed  in  Section  3.2,  Job  Initiation 
Procedures . 

2.5  System  Capabilities 

The  capabilities  of  the  Depot  Performance  DBS  are  a  function  of  three 
factors:  the  nature  of  the  7220.29  records,  the  structure  of  the  Depot  Per¬ 
formance  Data  Base,  and  the  information  retrieval  properties  of  the  INQUIRE 
user  language.  Both  individually  and  in  combination  with  one  another,  these 
factors  determine  the  ability  of  the  system  to  meet  the  information  require¬ 
ments  of  OASD(MRA&I)MD. 

The  7220.29  records  cover  only  completed  work  in  a  given  fiscal  year. 
Consequently,  questions  on  workload  backlog,  for  example,  cannot  be  answered. 
On  the  positive  side,  the  system  can  answer  virtually  any  question  on  depot 
performance  which  can  be  posed  in  terms  of  the  data  fields  in  the  7220.29 
records.  Section  2.6,  The  Depot  Performance  Data  Base,  describes  the  data 
contained  in  those  records . 

The  second  factor  affecting  system  capabilities  is  the  structure  of  the 
data  base.  Since  new  data  are  submitted  annually,  the  total  Depot  Performance 
Data  Base  consists  of  separate,  similarly  structured  data  bases,  one  for  each 
fiscal  year.  Currently  the  total  data  base  consists  of  both  a  FY  78  data  base 
and  a  FY  79  data  base.  This  affects  the  ability  of  the  system  to  perform 
multi-year  analyses  in  a  fully  automated  fashion.  In  some  cases,  manual 
analyses  of  extracted  data  may  be  necessary  to  detect  trends  over  more  than 
one  fiscal  year. 

The  third  factor  affecting  system  performance  involves  the  information 
retrieval  properties  of  the  INQUIRE  user  language  itself,  specifically  the 
commands  and  subcommands  of  INQUIRE,  and  the  syntax  rules  for  combining  the 
commands  into  queries.  The  vocabulary  and  syntax  of  INQUIRE  constitute  the 
"rules"  which  users  must  follow  to  retrieve  desired  information.  If  the  rules 
are  broken,  the  query  will  fail  to  successfully  execute.  INQUIRE' s  vocabulary 
and  syntax,  however,  provide  users  with  considerable  power  in  information 
retrieval . 

Most  applications,  including  the  standard  report  queries  already  built 
into  the  system,  are  no  more  complicated  than  retrieving  records  based  on 
specified  field  value  conditions  (expressed  in  FIND  or  SCAN  commands  utilizing 
Boolean-type  logical  statements),  sorting  the  records  into  categories  (again 
based  on  field  values),  and  reporting  results  in  the  form  of  tables  or  lists 
with  appropriate  subtotals  and  totals.  INQUIRE  is  fully  equipped  to  support 
straightforward  applications  such  as  these.  In  addition,  INQUIRE  has  advanced 
capabilities  to  satisfy  more  complex  information  requirements,  such  as  a 
multi-data  base  option. 

As  a  final  remark,  not  all  of  INQUIRE' s  capabilities  have  been  exploited 
in  applications  to  date.  Future  users  are  very  likely  to  find  new  applica¬ 
tions  for  the  system,  such  as  multi-step  queries  involving  temporary  data 
bases  and  iterative  retrievals,  and  use  of  the  "relational"  capabilities 
provided  by  INQUIRE 's  multi-data  base  options. 
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2.6  The  Depot  Performance  Data  Base 

Each  record  in  the  data  submitted  by  the  Military  Services  contains  50 
items  of  information  and  represents  a  job  order  completed  during  the  reporting 
year.  (The  structure  and  criteria  for  establishing  job  orders  are  described 
in  the  7220.79  Handbook,  pages  310-1  through  310-3.)  Figure  2-2  lists  the  50 
data  items  included  on  the  submitted  7220.29  records.  Appendix  D  defines  the 
50  data  items. 

In  the  Depot  Performance  Data  Base,  each  data  item  defines  a  field,  and 
each  job  order  defines  a  logical  record.  The  total  data  base  is  made  up  of 
separate,  similarly  structured  data  bases,  one  for  each  fiscal  year.  A  given 
FY  data  base  contains  all  the  7220.29  cost  and  production  data  reported  by  the 
Services  for  that  year.  Figure  2-3  defines  the  relationship  between  fields  in 
the  data  base  structure  and  the  data  items  in  the  submitted  records.  The 
columns  labeled  "Data  Base  Fields"  contain  the  field  names  used  in  the  data 
base.  (These  are  the  names  used  when  fields  are  referenced  in  queries.) 

Each  data  base  field  is  assigned  several  descriptive  characteristics, 
such  as  print  format  and  length,  which  the  DBMS  uses  in  retrieving  data  and 
formatting  reports.  Figure  2-4  lists  the  attributes  of  each  field  in  the 
Depot  Performance  Data  Base.  For  ease  of  comparison  with  the  INQUIRE  manuals, 
this  figure  has  the  form  of  a  Fields  Definition  Table.  The  codes  defined  at 
the  bottom  of  the  figure  are  discussed  in  detail  in  the  INQUIRE  Installation 
and  Operations  Guide.  The  "Repetitions"  column  indicates  that  all  fields  in 
the  data  base  are  scalar  (single-valued)  fields.  (INQUIRE  has  the  capability 
to  handle  scalar  fields  or  "repeating”  (multiple-valued)  fields.)  The  "Stored 
Length"  column  tells  how  many  characters  are  alloted  to  the  field  in  storage. 
The  "Key"  column  identifies  those  fields  which  are  prefix  key  fields  in  the 
data  base  structure.  Different  values  of  these  fields  are  stored  in  the  index 
file  of  the  data  base  in  entries  of  the  form:  FIELDNAME=(value) ,  with  one 
entry  for  each  distinct  value,  and  a  pointer  to  the  search  file  in  the  data 
base.  The  search  file  contains  the  addresses  of  those  records  which  have  that 
value  in  that  key  field.  The  index  and  associated  key  fields  make  it  possible 
for  the  INQUIRE  DBMS  to  retrieve  specific  data  without  having  to  SCAN  the 
entire  set  of  records  in  the  data  base.  The  key  fields  indicated  have  been 
selected  because  they  are  the  most  useful  set  of  keys  for  the  information 
desired  by  the  Maintenance  Directorate. 

At  the  time  of  this  writing,  the  Depot  Performance  Data  Base  contains  the 
data  for  FY  78  and  79.  The  FY  78  data  base  contains  107,077  records  and  the 
FY  79  data  base  contains  96,704  records.  Using  these  years  as  a  guide,  it  is 
expected  that  each  new  fiscal  year  will  generate  approximately  100,000 
records . 

2.7  Inputs,  Processing,  and  Outputs 

This  section  provides  a  start-to-f inish  description  of  the  input,  pro¬ 
cessing  flow,  and  output  of  the  Depot  Performance  DBS  in  a  typical 
application. 
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FIGURE  2-2.  SERVICE  REPORTED  DATA  ITEMS 


RECORD  IDENTIFICATION 


Record  Type 
Quarter  Code 
Fiscal  Year 

FACILITY  IDENTIFICATION 

Program  Element 
Facility  Name  or  Code 
Inside  or  Outside  U.S.  Code 
Owner/Operator  Code 
Reporting  Facility  Code 

ITEM/SERVICE/CUSTOMER  IDENTIFICATION 

Item  Identification  Number 
Item  Nomenclature 
Standard  Inventory  Price 
Weapon  or  Support  System  Code 
Work  Breakdown  Structure  Code 
Work  Performance  Category 
Customer  Code 

LABOR  AND  COST  DATA 

Direct  Civilian  Labor  (Production) 
Cost 

Direct  Civilian  Labor  (Production) 
Hours 

Direct  Civilian  Labor  (Other)  Cost 
Direct  Civilian  Labor  (Other)  Hours 
Direct  Military  Labor  (Production) 
Cost 

Direct  Military  Labor  (Production) 
Hours 

Direct  Military  Labor  (Other)  Cost 
Direct  Military  Labor  (Other)  Hours 
Direct  Material  Cost  -  Funded 
Direct  Material  Cost  -  Unfunded 
(Investment  Items  at  Full  Price) 
Direct  Material  Cost  -  Unfunded 
(Exchanges) 

Direct  Material  Cost  -  Unfunded 
(Modification  Kits) 

Direct  Material  Cost  -  Unfunded 
(Expense) 


Other  Direct  Cost  -  Funded 
Other  Direct  Cost  -  Unfunded 
Operations  Overhead  -  Funded 
Operations  Overhead  -  Unfunded 
General  and  Administrative  Expense 

-  Funded 

General  and  Administrative  Expense 

-  Unfunded 

Maintenance  Support  Costs  Organic 

-  Funded 

Maintenance  Support  Costs  Organic 

-  Unfunded 

NON-ORGANIC  LABOR  AND  COST  DATA 

Con tract /Interservice/Non-Depot 
Maintenance  Activity  Cost 
Government-Furnished  Material 
(Investment  Items  at  Full  Price) 
Government-Furnished  Material 
(Exchanges) 

Government-Furnished  Material 
(Modification  Kits) 
Government-Furnished  Material 
(Expense) 

Government -Furnished  Services  - 
Funded 

Government-Furnished  Services  - 
Unfunded 

PRODUCTION  DATA 

Total  Production  Quantity  Completed 
Quantity  of  Completed  Items 

Inducted  During  Reporting  Year 
Quantity  of  Completed  Items 

Inducted  During  Year  Preceding 
Reporting  Year 
Quantity  of  Completed  Items 
Inducted  During  All  Other 
Previous  Years 
Work  Days  in  Process 
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FIGURE  2-3.  FIELD  AND  DATA  ITEM  RELATIONSHIPS 


Data  Base 

Fields 

Data  I tea* 

Daca  Sase 

Fields 

Data  Items 

RECTYPE 

Record  Type  "F" 

UMATLMK 

Direct  Material  Cost- 

QUARTER 

Quarter  Code 

I 

Unfunded  (Modification 

Fiscal  Year 

Kits) 

PROGELT 

Program  Element 

UMATLXP 

Direct  Material  Cost- 

PROGRAM* 

Program  Element 

Unfunded  (Expense) 

SERVICE* 

Program  Element 

F OTHER 

Other  Direct  Cost-Funded 

FACILITY 

Facility  Name  or  Code 

UOTHER 

Other  Direct  Cost-Unfunded 

in/outus 

Inside  or  Outside  U.S.  Code 

FOVRHD 

Operations  Overhead-Funded 

OWNROPER 

Owuer/Ooeracor  Code 

UOVRHD 

Operations  Overhead- 

RPTGFAC 

Reporting  Facility  Code 

Unfunded 

ITEMNUMB 

Item  Identification  Number 

FG&A 

General  and  Administrative 

ITEMNAME 

Item  Nomenclature 

Expens e-Funded 

PRICE 

Standard  Inventory  Price 

UG&A 

General  and  Administrative 

SYSTEM 

Weapon  or  Support  System 

Expense-Unfunded 

Code 

CONTRACT 

Contract/Interservice/Non- 

WBSb 

Work  Breakdown  Structure 

Depot  Maintenance 

Code 

Activity  Cost 

COMMODTYb 

Work  Breakdown  Structure 

C.FMII 

Government  Furnished 

Code 

Material  (Investment 

1  CATEGORY 

Work  Breakdown  Structure 

Items  &  Full  Price) 

1 

Code 

GFM3CC 

Government  Furnished 

COMPONETb 

Work  Breakdown  Structure 

Material  (Exchanges) 

Code 

GFMMK 

Government  Furnished 

WPC 

Work  Performance  Category 

Material  (Modification 

CUSTOMER 

Customer  Code 

Kits) 

CLABRP 

Direct  Civilian  Labor 

GFMXP 

Government  Furnished 

(Production)  Cost 

Material  (Expense) 

CLABRPHR 

Direct  Civilian  Labor 

FGFSERV 

Government  Furnished 

(Production)  Hours 

Services-Funded 

i  CLABRO 

Direct  Civilian  Labor 

UGFSERV 

Government  Furnished 

(Other)  Cost 

Services-Unfunded 

i  CLABRCHR 

Direct  Civilian  Labor 

FMAINSPT 

Maintenance  Support  Costs 

(Other)  Hours 

Organic-Funded 

mlabrp 

Direct  Military  Labor 

UMAINSPT 

Maintenance  Support  Costs 

(Production)  Cost 

Organic-Unfunded 

MLABRPHR 

Direct  Military  Labor 

PRODQNTY 

Total  Production  Quantity 

(Production)  Hours 

Completed 

MLABRO 

Direct  Military  Labor 

TOTLCOSTC 

All  Cost  Fields 

(Other)  Cost 

QNTREPYR 

Quantity  of  Completed  Items 

MLABROHR 

Direct  Military  Labor 

Inducted  During  Reporting 

(Other)  Hours 

Year 

fmatl 

Direct  Material  Cost-Funded 

QNTPREYR 

Quantity  of  Completed  Items 

Direct  Material  Cost- 

: 

Inducted  During  Year  Pre- 

j  UMATLII 

Unfunded  (Investment 

ceding  Reporting  Year 

. 

Items  at  Full  Price) 

1  QNTOTHYR 

Quantity  of  Completed  Items 

umatlxc 

Direct  Material  Cost- 

j  Inducted  During  Ail  Other 

Unfunded  (Exchanges) 

Previous  Years 

1 

WORKDAYS 

i 

.  Work  Days  in  Process 

*Thi3  field  structure  allows  the  program  code  and  service  code  Co  be  referenced  as  sep' 
arate  pieces  of  information  or  as  one  unit. 


tlThls  field  structure  allows  commodity,  category  and  component  to  be  referenced  as  sep' 
arate  pieces  of  information  or  as  one  unit 
“This  field  wae  added  co  each  record  to  improve  computational  efficiency. 


FIGURE  2-4.  FIELD  DEFINITION  TABLE 


Inputs  to  the  system  originate  with  a  user  at  a  terminal.  (TSO  initi¬ 
ation  procedures,  prior  to  input,  are  covered  in  Section  3.2,  Technical  Opera¬ 
tions.)  For  a  production  job,  inputs  consist  of  a  set  of  numbered  statements 
typed  by  the  user  at  a  terminal  keyboard.  As  noted  in  Section  2.4,  input 
consists  of  JCL  and  INQUIRE  statements. 

For  the  most  part,  JCL  statements  do  not  vary  from  one  production  job  to 
the  next.  Important  exceptions  are  those  JCL  statements  which  identify  the 
cataloged  data,  search,  and  index  files  to  be  accessed  in  the  job.  The  names 
of  these  files  depend  upon  the  FY  data  base(s)  being  accessed.  Accordingly, 
care  must  be  taken  to  ensure  that  the  desired  FY  data  base  is  actually 
requested. 

The  INQUIRE  statements  constitute  the  query  portion  of  the  input.  Most 
queries  may  be  thought  of  as  having  three  stages:  a  retrieval  stage,  a  manipu¬ 
lation  stage,  and  an  output  specification  stage.  (In  the  case  of  multi-data 
base  queries,  the  retrieval  stage  will  be  preceded  by  INQUIRE  statements  which 
create  a  multi-data  base,  i.e.,  a  data  base  whose  logical  records  are  linked 
records  from  two  or  more  single  data  bases.)  The  statements  in  the  retrieval 
stage  are  FIND  or  SCAN  commands  that  specify  a  set  of  job  order  records  to  be 
retrieved  from  the  data  base,  using  logical  conditions  expressed  in  terms  of 
field  values.  For  example,  the  statement 

FIND  FACILITY=LETTERKENNY 

would  retrieve  all  records  whose  facility  field  contained  the  character  string 
"LETTERKENNY . "  (Letterkenny  is  an  Army  depot  in  Chambersburg,  Pennsylvania.) 
In  this  example,  FACILITY  is  a  key  field,  allowing  the  use  of  the  FIND  command 
and  the  "="  symbol.  The  statement 

SCAN  TOTLCOST  GT  10000 

would  retrieve  all  job  order  records  in  the  data  base  whose  TOTLCOST  field 
contained  a  number  greater  than  10,000.  SCAN  is  used  when  the  retrieval  is 
based  on  non-key  fields.  It  will  cause  the  entire  FY  data  base  to  be  se¬ 
quentially  searched  for  the  desired  records.  As  this  is  a  time-consuming 
process,  it  is  advisable  to  use  key  fields  and  the  FIND  command,  along  with 
non-key  fields,  whenever  possible. 

From  the  user's  point  of  view,  it  is  important  to  understand  the  re¬ 
trieval  stage.  It  does  not  retrieve  a  set  of  field  values,  nor  does  it 
retrieve  information  in  its  final  desired  form.  It  retrieves  a  set  of  logical 
records  from  the  data  base,  which  satisfy  some  set  of  specified  properties. 
This  point  is  important  in  relation  to  the  manipulation  and  output  specifica¬ 
tion  stages.  Users  must  recognize  that  after  the  retrieval  stage  they  will 
have  a  selected  set  of  complete  logical  records.  Thus,  once  a  given  number  of 
job  order  records  have  been  retrieved,  they  become  the  universe  for  operations 
in  subsequent  stages  of  the  query.  (The  HOLD  command,  however,  does  allow 
users  to  create  temporary  data  bases  containing  retrieved  records  and  then 
make  a  "second"  retrieval  on  the  primary  set  of  retrieved  records,  based  on 
some  further  criteria  not  specified  in  the  initial  FIND  or  SCAN  statements.) 


The  manipulation  stage  follows  the  retrieval  stage  of  a  query.  The 
manipulation  stage  consists  of  input  statements  which  either  (1)  cause  re¬ 
trieved  records  to  be  sorted,  counted,  modified,  etc.  or  (2)  cause  calcu¬ 
lations  and  other  operations  to  be  performed  with  the  field  values  in  the 
retrieved  records. 

The  final  set  of  input  statements  in  a  query  will  specify  the  structure 
and  content  of  the  output,  including  list  and  table  structures,  titles  and 
headers,  what  is  to  be  printed,  spacing,  etc.  Even  though  all  queries  have 
the  three  stages  just  described,  the  statements  which  make  up  these  stages  are 
not  always  logically  distinct  or  independent  of  one  another.  For  example, 
statements  in  the  manipulation  stage  may  define  temporary  fields  used  in  the 
retrieval  stage. 

Once  a  complete  set  of  J CL  and  INQUIRE  statements  are  ready,  they  are 
submitted  as  a  batch  job  using  a  TSO  command.  The  INQUIRE  DBMS  software  and 
System  K  operating  system  then  take  over  and  perform  the  processing  indicated 
(retrieval,  manipulation,  and  preparation  of  output).  Processing  can  take 
anywhere  from  a  few  minutes  of  clock  time  to  several  hours,  depending  on  the 
query  and  the  number  of  TSO  users  on  System  K  at  the  time.  Also,  System  K 
processing  is  occasionally  interrupted,  in  which  case  the  job  may  have  to  be 
resubmitted. 

Following  input  and  processing,  the  System  K  operating  system  will  auto¬ 
matically  cause  a  JOB  ENDED  message  to  appear  at  the  user's  terminal  when  a 
job  is  completed.  If  the  user  signs  off  before  job  execution  is  completed, 
the  operating  system  automatically  saves  the  output  and  sends  the  JOB  ENDED 
message  to  the  user's  terminal  whenever  the  user  comes  back  on-line  under  TSO. 
The  user  will  then  return  a  TSO  command  requesting  output.  If  the  job  has 
executed  successfully,  the  output  will  be  the  desired  report;  otherwise,  the 
output  will  be  system  log  messages  providing  information  on  where  and  why  the 
job  abnormally  terminated.  The  output  will  also  include  accounting  infor¬ 
mation  on  the  cost  of  the  job  and  how  much  time  it  took. 

All  output  reports  should  be  checked  for  completeness  and  accuracy.  A 
valuable  aid  in  assessing  the  completeness  of  a  report  is  provided  by  an  ITEMS 
RETRIEVED  statement,  which  the  DBMS  will  automatically  print  at  the  end  of 
each  report.  The  value  listed  indicates  the  number  of  job  order  records 
retrieved  in  the  execution  of  the  query.  When  the  user  knows  how  many  records 
should  have  been  retrieved  (e.g.,  all  the  records  for  a  given  Service),  then 
the  ITEMS  RETRIEVED  number  is  a  check  on  the  "correctness"  of  the  query  and 
the  validity  of  its  output. 
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SECTION  3.  TECHNICAL  OPERATIONS 


3.1  Gaining  Access  to  System  K 


Users  of  the  Depot  Performance  DBS  must  first  obtain  access  to  System  K 
at  AFDSC.  Prospective  users  should  contact: 

Mr.  Larry  Robertson 

Directorate  of  OSD  Systems,  AFDSC(GNM) 

Telephone:  (202)  695-3389;  Autovon  22-3389 

Mr.  Robertson,  who  was  LMI's  administrative  contact  at  AFDSC  for  the  Depot 
Performance  DBS  project,  can  assist  users  in  gaining  access  to  the  system. 

To  use  System  K,  users  must  have  an  Office  of  Primary  Responsibility 
(OPR)  cost  code,  a  Project  (PROJ)  code,  a  submitter  ID,  and  a  valid  password. 
To  access  the  cataloged  data  files  and  programs  which  have  been  established 
for  the  Depot  Performance  DBS,  users  should  use  the  OPR  and  PROJ  codes: 
OPR=OS20  and  PROJ=N308D.  The  submitter  ID  will  be  the  user's  initials.  (In 
the  discussion  below,  the  submitter  ID  is  denoted  XXX.)  The  user's  password 
will  be  assigned  by  AFDSC. 

3-2  Initiation  Procedures 


This  subsection  describes  the  sequence  of  TSO  operations  the  user  must 
perform  at  a  terminal  to  initiate  a  session  with  System  K.  The  AFDSC  Users 
Manual  for  the  IBM  3032  contains  additional  information  on  TSO  operations  with 
System  K. 

In  the  steps  below,  the  instruction  "Enter"  means  press  the  RETURN  key  on 
the  terminal  after  typing  the  information  indicated.  Pressing  the  RETURN  key 
transmits  the  typed  information  to  the  computer. 

Step  1.  Turn  the  terminal  ON,  with  switch  settings  as  follows:  ON-LINE, 
HALF-DUPLEX,  300  BAUD,  and,  if  present,  AUTO-LINEFEED  OFF. 

Step  2.  Dial  697-5959.  Upon  receiving  a  high-pitched  tone,  place  the 
telephone  receiver  in  the  modem  attached  to  the  terminal. 

Step  3.  Press  the  RETURN  key. 

Step  4.  Enter  the  three  characters  TSO. 

If  System  K  is  operating,  you  will  receive  the  message  ENTER 
LOGON;  otherwise  the  system  will  respond  with  SYSTEM  DOWN.  If 
it  responds  with  INVALID- SW- CHARS ,  repeat  Step  4. 

Step  5.  In  response  to  the  ENTER  LOGON  message,  enter  LOGON  OS20XXX, 
where  XXX  is  your  submitter  ID. 

The  system  will  respond  with  the  message  ENTER  CURRENT  PASSWORD 
FOR  0S20XXX-,  followed  by  an  over-typed  line  to  accept  your 
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password.  The  OPR  code,  together  with  your  submitter  ID,  is 
your  user  ID.  A  user  ID  of  the  form  OS20XXX  permits  access  to 
the  stored  files  and  programs  in  the  Depot  Performance  DBS. 


Step  6.  Enter  your  password. 

The  system  will  respond  with  ENTER  OPR  COST  CODE  AND  PROJECT 
CODE  (9  CHAR)--. 

Step  7.  Enter  0S20N308D. 

The  system  uses  this  combined  OPRPROJ  code  to  complete  your 
identification  and  validation  as  a  user.  The  system  will  re¬ 
spond  to  your  OPRPROJ  code  with  a  brief  listing  of  system  in¬ 
formation  followed  by  the  message  READY. 

The  READY  message  indicates  a  successful  log-on  as  a  TSO  user,  and  the 
system  is  ready  to  accept  further  TSO  commands.  To  obtain  a  description  of 
TSO  commands  directly  from  the  system  (once  you  have  received  a  READY  mes¬ 
sage),  enter  HELP  HELP.  In  the  course  of  any  session,  when  the  READY  message 
appears,  it  is  as  if  you  had  just  completed  the  initiation  procedure  just 
described.  In  order  to  sign  off  the  system  at  the  conclusion  of  a  session, 
enter  LOGOFF  after  a  READY  message. 

3.3  Input  Procedures 

3.3.1  General 


Once  the  READY  message  appears,  the  user  can  access  and  exercise  the 
Depot  Performance  DBS.  The  procedures  described  in  this  subsection  will 
permit  users  to  begin  using  the  system.  With  experience,  users  will  find  that 
they  have  considerable  flexibility  beyond  the  procedures  described  here. 
Also,  users  may  wish  to  develop  prestored  command  lists  (CLISTS)  for  the 
procedures  described  below,  as  a  possible  time-saving  device. 

The  Depot  Performance  DBS  includes  a  set  of  prewritten  job  streams,  for 
both  applications  and  data  base  maintenance  jobs,  which  have  been  saved  and 
cataloged  on  System  K.  These  job  streams  are  physically  stored  on  public  disk 
space  (a  permanently  mounted  (on-line)  disk  pack)  and  can  be  accessed  by  the 
System  K  operating  system  in  response  to  user-submitted  TSO  commands.  The  job 
streams  are  self-contained  (i.e.,  they  include  both  JCL  and  INQUIRE  state¬ 
ments)  and  can  be  used  as  written  or  modified,  depending  on  the  application. 
For  virtually  all  system  tasks ,  users  will  find  it  easiest  to  first  access  a 
saved  job  stream  and  then  modify  (EDIT)  it  to  suit  their  needs .  Any  new  job 
streams  developed  by  the  user  (including  modified  streams)  can  be  added  to  the 
set  of  prewritten  jobs  for  future  use. 

3.3.2  Calling  a  Saved  Job  Stream 

To  call  a  prewritten  job  stream,  the  user  must  provide  the  system  with 
the  name  of  the  job  stream  as  it  appears  in  the  system  catalog.  The  Depot 
Performance  DBS  job  streams  are  stored  in  a  partitioned  data  set  (PDS)  called 
'OS2001U.N308D.KEN' ,  which  for  convenience  will  be  referred  to  as  just  KEN. 


To  obtain  a  listing  of  the  names  of  the  job  streams  stored  in  KEN,  enter 
SHOWDIR  ' 0S2001U.N308D .KEN’ ,  following  receipt  of  READY.  Currently  there  are 
35  members  in  KEN.  (Appendices  A,  B,  and  C  provide  further  information  on 
these  prewritten  job  streams,  including  listings.) 

The  job  stream  in  KEN  called  QUERY79  will  be  used  to  illustrate  the 
procedure  for  calling  a  saved  job  stream.  QUERY79  provides  a  table  of  direct 
costs  by  program  element  and  commodity  for  the  Army's  FY  79  depot  maintenance 
program. 

Step  1.  Following  receipt  of  READY,  enter 

EDIT  ’OS2001U.N308D.KEN(QUERY79) '  CN. 

The  system  will  respond  with  the  message  EDIT.  The  system  is 
now  in  the  EDIT  mode  under  TSO,  and  the  requested  member  in  KEN 
is  available  for  the  user's  next  action. 

Step  2.  Enter  LIST,  or,  just  L. 

In  response,  the  system  will  print  a  listing  of  the  statements 
in  QUERY79.  (Figure  3-1  in  Section  3.3.3,  Sample  Inputs,  lists 
these  statements.) 

If  the  user  expects  to  modify  the  retrieved  job  stream,  the 
character  V  (for  VERIFY)  should  be  entered  prior  to  Step  2.  The 
system  will  then  automatically  return  the  latest  version  of  any 
line  modified  in  the  EDIT  mode. 

If  no  changes  are  desired  in  the  prewritten  statements,  then 
they  may  be  submitted  as  a  job  with  Step  3a.  If  changes  are  to 
be  made,  go  to  Step  3b. 

Step  3a.  Enter  SUB  *. 

The  system  will  respond  with  the  message  ENTER  JOBNAME  CHAR¬ 
ACTER^)-.  Following  Step  3a,  go  to  Step  4. 

Step  3b.  To  change  or  modify  a  line,  enter  the  character  C,  blank,  the 
line  number,  blank,  the  symbol  /,  the  exact  portion  to  be 
changed,  the  symbol  /,  the  desired  change  exactly  as  it  should 
appear,  and  the  symbol  /. 

The  symbol  ?  may  be  used  in  place  of  /  if  /  is  used  in  the 
change  itself. 

If  a  V  has  been  entered  following  receipt  of  EDIT,  then  the 
changed  line  will  be  returned  automatically.  Otherwise,  to 
examine  a  line,  enter  L  followed  by  the  line  number. 

To  delete  a  line,  enter  DELETE  followed  by  the  line  number.  To 
delete  a  consecutive  series  of  lines,  e.g.,  lines  190  through 
230,  enter  DELETE  190  230.  After  desired  changes  have  been 
made,  go  to  Step  3a. 

Step  4.  Enter  any  alpha/numeric  character  desired,  e.g.,  A. 

The  system  will  respond  with  the  message  JOB  0S20XXXA(J0Bxxxxx) 
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SUBMITTED,  where  xxxxx  denotes  the  number  assigned  by  the  oper¬ 
ating  system  to  the  job.  Since  more  than  one  job  may  be  sub¬ 
mitted  in  a  given  session,  different  jobname  characters  should 
be  assigned  to  each  job.  This  practice  will  also  aid  in 
identifying  outputs . 

This  concludes  the  general  description  of  input  procedures  necessary  to 
submit  a  job.  For  further  information  on  TSO  commands  available  in  the  EDIT 
mode,  enter  HELP  EDIT,  following  a  READY.  To  return  to  the  READY  mode  from 
the  EDIT  mode,  enter  END.  Important  Note:  If  a  job  stream  has  been  modified 
under  EDIT,  the  system  will  respond  to  END  with  a  message  asking  SAVE  OR  END 
before  returning  to  the  READY  mode.  Enter  END  again  to  return  to  the  READY 
mode.  This  second  END  causes  any  modifications  to  be  "forgotten,"  and  the 
initially  retrieved  job  stream  to  be  saved  in  its  original  form.  To  SAVE  and 
catalog  a  new  or  modified  job  stream  as  a  new  member  of  KEN,  enter  SAVE 
'0S2001U.N308D.KEN(xxxxxxx) ' ,  where  xxxxxxx  denotes  the  name  chosen  for  the 
new  job  stream.  If  a  message  indicating  a  lack  of  space  in  KEN  is  received, 
see  HELP  COMPRESS. 

3.3.3  Sample  Inputs 

This  subsection  describes  sample  inputs  for  both  application  and  data 
base  maintenance  jobs.  The  user  will  note  in  both  types  of  jobs  that  the 
first  step  in  preparing  input  is  to  call  a  saved  job  stream  as  described  in 
the  preceding  section. 

Example  1.  Input  for  a  Query 

Figure  3-1  lists  the  JCL  and  INQUIRE  statements  in  the  QUERY79  job 
stream.  The  statements  shown  are  a  typical  input  stream  for  an  ad  hoc  applica¬ 
tion  job  in  the  Depot  Performance  DBS.  Note  that,  as  indicated  by  the  first 
(unnumbered)  line  in  Figure  3-1,  this  job  stream  was  obtained  by  entering  EDIT 
' OS2001U.N308D.KEN(QUERY79) '  CN. 

The  JCL  statements  for  this  job  are  contained  in  lines  10-150.  With 
the  exceptions  noted  in  the  next  paragraph,  these  JCL  statements  are  used  in 
any  application  job  in  which  the  user  submits  an  INQUIRE  query  as  part  of  the 
job ■  Different  JCL  statements  are  required  when  the  user  applies  certain 
"macro”  options  (discussed  later  in  this  section),  and  when  certain  kinds  of 
data  base  maintenance  jobs  are  to  be  performed  (also  discussed  later). 

In  accordance  with  IBM  JCL  syntax  rules,  every  JCL  statement  must  be 
identified  with  the  double  slash  (//)  in  columns  1  and  2,  or,  in  some  cases  a 
slash  and  asterisk  (/*).  In  the  first  JCL  statement  (line  10),  note  that  the 
submitter  ID  CHH  appears.  Future  users  will  have  their  own  three  character  ID 
to  replace  CHH.  Also,  the  name  HANKS  will  be  replaced  by  the  last  name  of  the 
user,  as  registered  with  AFDSC.  The  user  should  also  check  the  JCL  statements 
which  identify  the  particular  FY  data  base  to  be  accessed  in  the  job  (lines 


FIGURE  3-1.  SAMPLE  INPUT  FOR  AN  APPLICATION 


EOTT  'OS2DOlU.N30eO.KS4<aiJERY79t'  CM 

EBIT 

L 


04010  //0S20OH  JOB  (OS20.K3080.  15U).HAMCS-R9l0TEiN0nFY»OS20Q9*. 

00020  //  OASS-fi.*OCL'<SS*W 

00030  //JOBUB  DO  OSJWTSI .  INOUIRE.  LINHJB.  DISP*SW 

00040  //INB8ATCH  EXEC  POWNflUIREl.REBHBWOCK. 

00050  it  F><Wf'/*,SHR,3mi50000.T>40K,f>^5.L»l22' 

00040  //REPORT  DO  SYSOUTU 

00070  //SYSPRINT  3D  SYSOTMT 

oooeo  // sam*  do  lnit*stsda, space*<  cyl, i io, j> ) 

00090  //SYSLIB  DO  WHY 

ootoo  //puour  do  sysoum 

00110  //DATAF1L  DO  D3HB2001U.II30e0.aBT«79.IT5.0flTfl.OISf>»SW 
00120  //1NXF1L  DO  D9WS2001U.R30e0.aSTRC79.n3. IMEX.DISP-9* 

00130  //SROflL  DO  D9MS2001U.N3080.COSTRC79.1T5.SRRCH.D19I<HR 
00140  //SR0VF1L  DO  DUTY 
00150  //SYSIM  DO  * 

00140  OPTION  EMDHINUS  8. 

00170  . 

00180  ALLOCATE  MSP  MOOT.  MUX  MOOX. 

00190  FIM)  SERVICE**  AMI  CUSTBER  CONTRINS  7R  AMI  (COMMOOTY  IS 
00200  (A.B.C.O.E.F.O.H.R.U  SET  CO.  OF  A). 

00210  DEFIIC  A  TAKE  (SETS  TOTAL.  FUNDED  UFUMJED  TOTLCOST,  9) 

00220  B  TEXT  (AIRCRAFT  AUTO  VEHICLES  CONSTRUCT  CtXI/ELEC  MISSILES  SHIPS 
00230  CAPtMUN  GENERAL  ODER  TOTAL)  C  TEXT  (FUMED  UNFUNDED  TOTAL).  COVUTE 
00240  FUMED  (CLABRP  »  CLABRO  ♦  ILABRP  *  ILABRO  ♦  FRAIL  ♦  FOTHER  * 

00250  FOVRM)  ♦  FG4A  ♦  CONTRACT  ♦  FOFSERV  *  FRAINSPT)  UNFUMED  (UNATLII 
00240  ♦  (JMATUC  »  UNA  TUN  ♦  UMATL1P  ♦  (JOTTER  ♦  UOVRW  ♦  UGW  *■  GFHII  ♦ 
00270  GFNXC  *  GFTfN  ♦  GFHIP  ♦  UGFSERV  ♦  IJNAINSPT). 

00290  CABER  'FISCAL  TEAR  1979'  'ARHY' 

00290  'DIRECT  (7AI  COSTS  8Y  PROGRAH  ELEMENT  AMI  COWOOITY'  '(4000)'.  TAB, 
00300  TITLE  I  R/A,  BREAK  AFTER  PROGRAM  SKIP  'PROGRAM  ELUENT  ' 

00310  PROGRAM  SKIP  C  TOTAL  OF  A  11  *  (K  9). 

00320  /» 

EM)  OF  ORTA 


0® 

READY 


110,  120,  and  130).  In  this  example,  the  FY  79  data  base  is  referenced.  The 
files  in  the  FY  79  data  base  have  the  data  set  names  (DSN)  indicated: 

0S200 1U . N308D . C0STAC79 . ITS . DATA 
0S2001U . N308D . C0STAC79 . IT5 . INDEX 
OS2001U . N308D . COSTAC79 . IT5 . SEARCH 

If  the  user  wishes  to  apply  this  query  to  the  FY  78  data  base,  then  the  79  in 
each  of  these  names  should  be  changed  to  78.  (The  FY  78  files  have  the  same 
names  except  that  79  is  replaced  with  78.)  This  change  may  be  accomplished  in 
the  EDIT  mode  by  entering: 


C  110  130  /79/78/ALL 
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Additional  information  on  JCL  statements  may  be  obtained  from  the  AFDSC  and 
IBM  JCL  references  cited  in  Section  1.2.3.  The  INQUIRE  parameters  which 
appear  in  line  50  are  discussed  in  Appendix  B  of  the  INQUIRE  User  Language 
Tutorial . 


The  remaining  statements  in  Figure  3-1  (lines  160-310)  are  INQUIRE 
statements.  (Line  320,  containing  /*,  is  a  termination-of-data  control  state¬ 
ment  and  should  be  included  as  the  last  line  in  any  application  job  containing 
a  query.)  The  three  lines  160,  170,  and  180  are  INQUIRE  statements  which 
provide  operational  parameters  to  the  DBMS.  The  INQUIRE  User  Language 
Tutorial  contains  information  on  these  administrative  commands  in  Chapter 
VIII,  Operational  Administration. 

The  actual  query  is  contained  in  lines  190-310.  Lines  190  and  200 
are  the  retrieval  portion  of  the  query;  lines  210-270  are  the  manipulation 
portion  (in  which  a  table  structure  is  defined  and  computations  performed) , 
and  lines  280-310  are  the  output  specification  portion. 

As  described  in  Section  3.3.2,  the  QUERY79  job  stream  may  be  sub¬ 
mitted  as  written.  (The  output  report  of  this  query  is  displayed  in  Figure 
3-6.)  Suppose,  however,  the  user  desires  to  modify  the  query.  At  one  ex¬ 
treme,  for  example,  the  user  may  replace  the  entire  query  by  entering: 

DELETE  190  310 

If  a  V  had  been  entered  after  the  EDIT  message,  then  the  system  would  auto¬ 
matically  return  the  last  remaining  line  in  the  program,  in  this  case  line 
180.  Following  the  DELETE,  the  user  would  insert  the  new  query  by  entering,  a 
line  at  a  time,  the  INQUIRE  statements  in  the  new  query.  Each  line  must  be 
numbered,  of  course.  (Line  numbers  may  be  generated  automatically  by  entering 
INPUT  following  an  EDIT.  To  return  to  the  EDIT  mode  from  the  INPUT  mode, 
press  the  RETURN  key  on  the  terminal  twice.)  As  a  user-oriented  language, 
INQUIRE  requires  only  a  minimal  amount  of  formatting  in  the  composition  of 
queries.  Acceptable  formats  are  described  in  the  INQUIRE  User  Language 
Tutorial . 


At  the  other  extreme,  the  user  may  want  to  use  the  same  query,  but 
applied  to  Air  Force  records  for  FY  79,  instead  of  Army  records.  (The  re¬ 
trieval  criterion  in  line  190,  SERVICE=A,  restricts  the  query  to  Army  records 
only.)  In  this  case,  lines  190,  280,  and  290  should  be  be  changed: 

C  190  /=A/=F/ 

C  190  /7A/7F/ 

C  280  /ARMY/AIR  FORCE/ 

C  290  /7A/7F/ 

(Note:  F  is  the  field  value  for  Air  Force  in  the  SERVICE  subfield  of  the 

PR0GELT  field.) 

With  these  changes,  the  modified  query  may  be  submitted  as  input 
(see  Steps  3a  and  4  in  the  preceding  Section  3.3.2). 
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The  capability  to  produce  standard  summary  reports  using  abbreviated 
sets  of  input  statements  (as  opposed  to  full  queries)  has  been  built  into  the 
Depot  Performance  DBS.  This  has  been  accomplished  using  INQUIRE 's  "macro" 
operations.  In  a  macro  job,  a  single  word  (a  macro),  followed  by  certain 
parameters,  is  inserted  after  a  JCL  stream  and  submitted  as  input.  The  DBMS 
then  automatically  executes  the  predefined  query  associated  with  the  macro  and 
generates  the  desired  report. 

Figure  3-2  displays  an  output  report  generated  by  one  built-in 
macro.  The  input  statements  for  this  macro  are  listed  in  Figure  3-3- 

FIGURE  3-2.  OUTPUT  FROM  A  MACRO 


PAGE  1 
01/28/81 


FISCAL  YEAR  1979 
ARMY 

TOTAL  DEPOT  MAINTENANCE  COST 
($000) 

FINED!  UFINEDS  TOTALS 


AIRCRAFT 

246.382 

38,967 

285.850 

AUTOMOTIVE 

52.863 

2,018 

54,881 

VEHICLES 

261.405 

23,472 

284,877 

CONSTRUCTION 

12.060 

354 

12,434 

COffUUCATIONS/ELECTRONICS 

123.973 

12,932 

136,906 

MISSILES 

152.647 

16,500 

169,147 

SHIPS 

10.068 

89 

10,157 

MEAPONStMJNITIONS 

82.524 

4,017 

86,541 

GENERAL 

49.353 

1.343 

50,697 

OTHER 

17.503 

1,147 

18,651 

TOTAL 

1,009,301 

100,842 

1.110,144 

ITEMS  RETRIEVED  12324 


The  macro  appears  in  line  190,  TOTLBDGT.  The  query  associated  with 
this  macro  has  been  permanently  stored  in  a  separate  PDS  on  the  (on-line) 
public  disk  pack  which  holds  the  KEN  data  set.  The  macro  PDS  is  called 
’ OS2001U.N308D. MACRO' .  (Note  line  90  in  the  JCL.)  A  listing  of  the  query 
associated  with  TOTLBDGT  may  be  obtained  by  entering: 


EDIT  'OS2001U.N308D.MACRO(TOTLBDGT) '  CN 


FIGURE  3-3.  INPUT  FOR  A  MACRO 


EDIT  /OS2001U.N30eO.KEN(NftCRUN2J/  CN 

EDIT 

L 


OOOIO  //0S20CHH  JOB  (0S20.M3O8D,  13U.200),fW«S-RE?10TE.NOTIFY-OS20a*<, 

00020  //  CLASS=«.flSGaASS«H 

00030  //J0BL1B  DO  DSN-SYS1.INOUUS.LIMOJB.DISP-EHR 

00040  //INQBATCH  EXEC  POHNOUIREl.REGUBMOOK. 

00050  //  Pfl«l»//W,S^150000,T^,P»55,L*132,«flCRO/ 

00060  //REPORT  DO  SYS0UH4 

00070  //SYSPRIHT  DO  SYSOUT-H 

00080  //SORT*  DD  UNIT=SYSQft,SPACE=<CYL. (10»5)) 

00090  //SYSLIB  DD  DSJMS2001U.  K308B.  flftCRO,  DISP*SHR 
00100  //PLIDUrf  0)  SYSOUT=H 

00110  //DATAFIL  DD  DS»MS2001U.N308D.COSTflC79.IT5.I)flTA,DISP*S»« 

00120  //INXF1L  DD  DSN^)S2001U.K30ffl.CQSTAC79.IT5.IM».DISP^ 

00130  //SROfflL  IK)  DSNndS2001U. N308D. C0STAC79. IT5. SEARCH*  DISP=SHR 
00140  //SROVFIL  DO  OUHHY 
00150  //SYSIN  DD  * 

00160  OPTION  ENDHINUS  8,  NOAUTOHAC. 

00170  . 

00180  ALLOCATE  UDOP  +120Z,  UDTX  +120Z. 

00190  ITOTLBDGTIAf ARMYi 1979) 

00200  /* 

END  OF  DATA 


Figure  3-4  identifies  the  12  standard  summary  reports  which  may  be 
obtained  with  macros  in  the  Depot  Performance  DBS.  Each  macro  call  word  must 
be  accompanied  by  three  parameters  (with  the  exception  of  HISYS,  which  re¬ 
quires  more),  and  preceded  by  an  ampersand  (&). 

Complete  job  streams  for  the  macros  in  the  Depot  Performance  DBS  are 
available  in  the  KEN  data  set.  The  member  names  in  KEN  for  macro  job  streams 
are  MACRUN,  MACRUN1 ,  and  MACRUN2 .  The  macros  ACTYCMDT,  CONTRCST,  DEPOTCST, 
and  FACCMDT,  for  example,  may  be  accessed  through  KEN  by  entering: 

EDIT  'OS2001U.N308D. KEN (MACRUN) '  CN 

By  examining  the  MACRUN  job  stream  in  KEN,  the  user  may  note  that  these  four 
different  jobs  may  be  input  to  the  system  at  one  time. 

Example  3.  Input  for  Loading  a  Data  Base 

This  example  describes  the  input  procedure  for  loading  a  new  FY  data 
base.  Recall  that  a  loader  program  is  used  to  input  the  Service-submitted 
7220.29  data  into  the  data  base.  Figure  3-5  lists  the  loader  job  stream. 
(Note  that  it  is  obtained  from  the  KEN  data  set  with  the  member  name  LOAD.) 
This  job  stream  was  used  to  load  the  FY  79  data  base.  Several  parameters  in 
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FIGURE  3-4.  MACROS  FOR  STANDARD  SUMMARY  REPORTS 
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Code 

Code 

Code 

Code 

Code 

Code 

Code 

Commodity  System  Commodity 

System 

Commodity 

System 
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Code 

Code  Code 
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....  . 

System  Commoaity  System 

Commodity 
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Commodity 

System 

Code  Code  Code 

Code 

Code 
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Service 

> 

Ti 
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ISTERSERt 
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Service 
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NONDEPOT f 

, 

_> 
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* 

Service  Codes  are:  A  for  Armv,  N  for  Navy,  M  for  Marine  Corps,  ana  F  for  Air  Force. 
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FIGURE  3-5.  THE  LOADER  PROGRAM 


aw 

03i!(iOn>.'n30»D.KSM>u<3flD>  CM 

z33i* 

L 

300  *o 

--OS90CHH  JO*  *OS90-P3090-l3U-*0-?0>.-<*P»S  ■flPCTl-*rTf»-0S9«CH»— 

00013 

—  0U*SS«*-*S«L*$3-P 

oooeo 

00 

DSmiYS*.IP0U**6.L*P6L*»-D*3P-3PP 

00030 

>*U3*8  =M6C  i 

POLflftO- PP6P-OS90 0 *U  rPPQj-»r?04{>-3XTW4*g->;05TPC  ?P-  f  T*p— . 

000*« 

^  *PTPH«C  ^*SCTp$7*^*g>M^P-e3-iJ>€C  »  93-  *w*6€C«*»-»g>»tC $■*?•*- 

00030 

**  3*P»€€S-*669« 

^PCVOL-Or  900  *  -  *«?VOL-OSiO  03-P«6*Qh-«V  •  p- 

00060 

-/•  Q4T6M 

■*^r'p^Tg^D*g<cT/  'iP4*  -  h— ?«c  *3^»- 

000?0 

-  -  3fc-4-S»0  SP0-1063- 0PTSPC  •  *43  0  -  3P<J*L —  ?7  -  •?  ?4*-  3P0V0L -0330 0  *  - 

oooao 

DS*TV4€-e3**- D6FV0L -03900*- 04?6:-t«>00-04TTYr*-*0 

ooo»* 

DO 

DSP-03900  *U.  P9090.  pp  JSCT-OOI— P«OPm«iu.?K>;-S  52S-9340- 

oooaa 

--  u>fiCk-e54>-<)f»*T^93**-.t^aL-5€6-a3aoo*-o*34-*fi*y-:6n.-6-ofci3Te>- 

uooaa 

?PP06-»?9a&-*300-fc>-PL2&> 

00100 

^*DRT.-DPTAPH;  DO 

DSW-OS900KI.  P306D.  CU3TP074.  *T4.  DPTP- 

00**0 

**  UP*T-*93**-9> 

-wQL- .***VPT6-*eT4!  p- 5B^-OS3004-OS90 03>>— 

ootao 

>-  Of34-*666-C-41H.-6-£>a^Tg>-i^60e-*?949-*-9430-300>— *LH>- 

00*30 

—  DC*-**«eFP-*-DSaPe-H>P-BL*S*a*-?949> 

001-40 

— D9F.13IOO  DO  DSlW>Wffi-*3HPg*U.*309D.PPCFPP»-«JP*T-™Pg6- 

00120 

-  VOL--Sm»006*06pDC*«»«6CGrP-Plp»L»3*g-3g40r^4€OL«a5»^P6P-*— DFSP-OU) 

00*35 

DO  OS/F1wC-PSPPgHJ.P3090. ,‘»**M*P*wjr»f 

00136 

vK^*se*—)96033-OC*-*P«<3a*-P»-Bl*‘SiZ£-93P4-U*€GL-93P-DeP-4>'-Q*3P-OU> 

0013? 

** 

DO  *Sriwa*u.rf3 090.4*09 

oowe 

00160 

/•>DPT.SY3*P  90  • 

00*?0 

*ecTv*6 

P 

1 

00*90 

OlHWW 

P 

t 

00*90 

py 

FPfF 

2 

00900 

WOBfiLT 

P 

6 

ooa*o 

P6QSPPP 

P 

3 

SPWQ6CLT  * 

00390 

26PM  *ce 

PP» 

* 

SPP06€LT  6 

00239  WOJLiTV 

PPP 

*4 

ooa*«> 

i-p>aufus 

F 

1 

00930 

omppops*-  p 

X 

00960 

ppTgroo 

e 

5 

•J09?0 

f?S*!PUP* 

PPP 

*9 

>0990 

ETEwnmC 

P 

90 

B 

>0990 

PPIOE 

P 

6 

00300 

3Y3T6* 

P*P 

4 

003*0 

4*5 

P 

3 

>0390 

comao  tv 

PP* 

* 

sy*9  t 

>30930 

OAtCtiOPV 

P 

* 

5U*S  9 

009*0 

comoicf 

P 

* 

36*5  3 

00330 

4PC 

FPP  9 

009o0 

CU3T0WBW 

F 

9 

003?0 

clpbpp 

P 

3 

00990 

CLi\jQ4*4> 

P 

3 

00390 

CL**PG 

P 

3 

00*00 

<2L9*90H9'  P 

5 

004*0 

iMUP 

5 

00490 

PiriJFPHP 

5 

00430 

HL-694G 

3 

004*0 

wLiiiwaiw 

3 

00450 

pppyu 

3 

00490 

UfPTtH 

3 

004?0 

gmTL^C 

3 

00490 

umn?» 

3 

00*40 

3 

00300 

R3THB* 

3 

003*0 

uaTw€P 

2 

00390 

BQV4HD 

— 

00530 

JQV4MD 

3 

003 40 

P«%P 

3 

00330 

U669 

3 

00360 

COPTPPCT 

3 

003?0 

9PPJ* 

3 

00390 

9f6C 

3 

00340 

arm* 

3 

')'400 

wFPXP 

3 

006*0 

C-5*S6PM 

3 

00690 

u9p:»»m 

3 

00690 

e-P*PSP* 

3 

006*0 

'JfW  *PCPT 

3 

-JU630 

PPflMPTV 

3 

00660 

TOTWCOST 

a 

0C«6?0 

?f1?0€PVB 

3 

>0660 

3 

006  j»0 

3 

00?  00 

-OP604VC 

5 

00?*0 

BL46 

6 

00. ‘90 

6PD 

1  >i»)?30 

)0?*0 

«  A 

3F  DPT* 

3-10 


the  loader  job  stream  are  computed  from  the  data  being  loaded.  Appendix  B 
describes  how  to  compute  these  parameters  and  to  use  the  loader  job  stream. 


Other  data  base  maintenance  routines  include  making  tape  copies, 
converting  numeric  data  from  unpacked  to  packed  format,  inserting  the  TOTLCOST 
field  into  every  record,  and  preparing  back-up  tape  copies  of  data  on  disks. 
Job  streams  for  each  of  these  tasks  are  stored  in  the  KEN  data  set  under  the 
member  names  COPY,  PACK,  TOTLCOST,  and  BACKUP.  Appendix  B  contains  instruc¬ 
tions  on  their  use. 

As  was  noted  previously,  the  user's  first  step  is  to  obtain  a  job 
stream  from  the  KEN  data  set.  Appendices  A,  B,  and  C  list  all  queries  and 
routines  stored  in  KEN;  they  also  provide  member  names,  descriptions  of  the 
output,  and  listings  of  the  INQUIRE  statements  in  the  job  streams.  By  using 
the  job  streams  stored  in  the  KEN  data  set,  users  will  save  considerable  time 
in  preparing  input  for  the  Depot  Performance  DBS. 

3.4  Output  Procedures 

3.4.1  General 


Once  a  job  has  been  submitted  to  the  Depot  Performance  DBS,  the  system 
performs  the  indicated  processing  and  then  places  output  in  an  output  queue, 
awaiting  instructions  from  the  user.  System  users  may  receive  output  at  their 
terminal  or  route  it  to  a  printer.  The  procedures  to  accomplish  these  actions 
are  discussed  in  this  section. 

3.4.2  Obtaining  Output 

The  procedures  to  obtain  output  from  a  job  are  quite  simple.  Recall  that 
every  submitted  job  is  assigned  a  jobname  made  up  of  the  user  ID  immediately 
followed  by  a  jobname  character  supplied  by  the  user.  (See  Steps  3a  and  4  in 
Section  3.3.2.)  With  the  user  ID  0S20XXX  and  the  jobname  character  Z,  for  ex¬ 
ample,  the  jobname  would  be  OS20XXXZ.  When  this  job  is  completed,  the  system 
prepares  a  message  indicating  the  job  has  ended  and  sends  it  to  the  user's 
terminal.  This  message  would  look  like: 

$HASPj j j  JOB  yyy  OS20XXXZ  ENDED  CN(aa) 
where  yyy  denotes  the  job  number  which  the  system  assigned  to  the  job. 

To  obtain  the  output  from  this  job  at  a  terminal,  the  user  enters: 

OUT  OS20XXXZ 

This  output  request  may  be  entered  under  either  the  READY  or  EDIT  mode.  Once 
entered,  however,  the  user  will  then  be  in  the  OUTPUT  mode.  (To  return  to  the 
EDIT  or  READY  mode,  press  the  BREAK  key  on  the  terminal.)  In  response  to  the 
output  request,  the  system  will  print  the  job  output  at  the  terminal. 

If  the  user  desires  to  obtain  the  output  at  a  high  speed  printer,  the 
following  procedure  is  used.  AFDSC  will  assign  a  remote  station  ID  number  to 
the  user's  printer,  say  05.  To  obtain  the  output  at  that  printer,  the  user 

enterS:  OUT  OS20XXXZ  DEST(RMTOS) 
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Users  may  also  examine  their  output  at  a  terminal  and  then  route  it  to  a 
printer.  For  information  on  this  procedure  enter  HELP  OUTP. 

3 .4. 3  Output  Contents 

Every  job  submitted  to  the  system  will  produce  output  of  some  form,  even 
when  the  job  fails.  In  the  case  of  job  failures,  the  output  will  consist  of 
system  log  messages,  or  perhaps  INQUIRE  error  messages.  Regardless,  the 
procedures  described  in  the  preceding  section  will  enable  the  user  to  receive 
the  output. 

The  output  of  any  job  in  the  Depot  Performance  DBS  will  fall  into  one  of 
the  following  three  categories.  For  application  jobs  which  successfully 
execute,  the  output  will  consist  of  tables  and  stratified  lists  containing 
various  aggregations  of  the  7220.29  data.  (Figure  3-6  shows  the  table  gen¬ 
erated  by  the  QUERY79  query.)  In  addition  to  the  report  itself,  the  system 
will  provide  information  on  how  the  job  was  executed,  how  much  time  it  took, 
and  how  much  it  cost. 

The  second  category  of  output  is  for  data  base  maintenance  jobs  which 
successfully  execute.  The  format  and  content  of  output  for  these  jobs  can 
vary  widely.  In  general,  however,  the  output  will  consist  of  system  messages 
indicating  successful  completion,  along  with  quantitative  and  qualitative 
information  relevant  to  the  maintenance  job  which  was  performed.  The  loader 
program,  for  example,  will  automatically  produce  considerable  information  on 
the  loaded  data  base.  (The  output  from  a  successful  load  should  be  saved  for 
future  reference;  the  information  it  provides  on  the  records  loaded,  including 
the  number  of  records  containing  distinct  values  in  key  fields,  can  be  very 
useful,  both  in  formulating  queries  and  in  validating  results.) 

The  third  category  of  output  occurs  when  a  job  (application  or  data  base 
maintenance)  fails  to  successfully  execute.  Jobs  can  fail  for  a  variety  of 
reasons.  There  may  be  a  JCL  error  in  the  JCL  input  stream.  The  output  will 
then  contain  a  JOB  FAILED- JCL  ERROR  message,  along  with  diagnostic  information 
to  aid  the  user  in  correcting  the  error.  In  th:.s  instance,  the  IBM  Messages 
and  Codes  references  should  be  consulted.  The  IBM  Systems  Support  Division  at 
AFDSC  can  also  assist  users  to  correct  JCL  errors. 

Jobs  may  also  abnormally  terminate  (ABEND)  due  to  user  error,  operator 
error/action  at  AFDSC,  or  system  action.  The  output  in  this  case  will  be 
system  log  messages  and  diagnostic  information.  Again,  the  IBM  Messages  and 
Codes  references,  and  AFDSC’ s  System  Support  Division  can  be  of  assistance. 

Finally,  jobs  may  fail  to  successfully  execute  because  there  is  an  error 
in  the  INQUIRE  query.  (This  failure  can  occur  only  when  the  job  uses  the 
INQUIRE  DBMS  software,  and  successfully  executes  to  activation  of  the  DBMS.) 
In  this  instance,  the  output  will  contain  INQUIRE  error  messages,  which  can  be 
used  to  debug  the  query.  Appendix  D  in  the  INQUIRE  User  Language  Tutorial 
explains  these  error  messages. 
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FIGURE  3-6.  TYPICAL  OUTPUT  REPORT 
(Produced  by  the  QUERY-79  Program) 
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3.5  Recovery  and  Error  Correction  Procedures 

Users  should  consult  the  INQUIRE,  AFDSC,  and  IBM  references  when  correct¬ 
ing  errors.  For  additional  assistance  in  correcting  JCL  errors  and  other 
problems  relating  to  the  System  K  operating  system,  users  should  contact  the 
IBM  Systems  Support  Division  (SFI)  at  AFDSC  (Tel.  696-7430/1274).  For  AFDSC 
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INQUIRE  procedure  problems,  users  should  contact  Mr.  Edward  Boback,  Direc¬ 
torate  of  OSD  Systems,  AFDSC  (Tel.  697-1229).  For  assistance  in  correcting 
programming  errors  in  the  INQUIRE  language,  users  should  contact  Infodata 
Systems  Inc.  via  the  INQUIRE  Hotline:  Tel.  (703)  578-0008. 

Recovery  capabilities  should  be  protected  by  preparation  of  back-up  tapes 
for  any  files  and  data  which  the  user  wishes  to  preserve.  Infrequently,  disk 
packs  are  damaged,  and  back-up  tapes  can  save  considerable  time  in  restoring 
system  capability.  Finally,  users  are  encouraged  to  SAVE  debugged  queries  in 
the  KEN  data  set  for  future  reference  and  application.  Back-up  tapes  for 
files  on  public  disk  packs  are  prepared  daily  by  AFDSC  and  held  for  five  days. 

3.6  Utilization  of  System  Outputs 

As  an  information  retrieval  system,  the  Depot  Performance  DBS  generates 
system  outputs  which  the  Maintenance  Directorate  will  use  to  expand  and  deepen 
its  visibility  of  depot  maintenance  programs  in  the  DoD.  Consequently,  system 
outputs  will  be  used  to  evaluate  depot  maintenance  programs  and  their  manage¬ 
ment,  and  to  prepare  briefings  and  reports.  LTC  Larry  Dix  (Tel.  695-0337)  is 
the  point  of  contact  within  the  Maintenance  Directorate  for  the  Depot 
Performance  DBS. 
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SECTION  4.  QUERY  DEVELOPMENT 


4.1  General 

The  process  of  developing  queries  is  critical  to  the  effective  use  of  the 
Depot  Performance  DBS.  This  process  is  characterized  by  two  questions: 
(1)  Can  the  information  requested  be  derived  from  the  data  base?  (2)  If  it 
can,  then  how  can  INQUIRE  accomplish  that  derivation?  The  first  question 
involves  determining  whether  an  end  user's  question  can  be  answered  with  the 
data  in  the  7220.29  records.  The  second  question  involves  formulating  an 
INQUIRE  query  to  extract  and  display  the  desired  information.  Both  tasks 
require  analysis  by  the  user. 

This  section  provides  general  guidance  for  each  stage  of  query  develop¬ 
ment,  not  detailed  instructions  to  cover  every  application. 

4.2  The  Information  the  Data  Base  Can  Provide 

The  job  order  records  in  the  depot  performance  data  base  provide  data 
falling  into  the  following  categories: 

Record  Identification  Labor  and  Cost  Data 

Facility  Identification  Non-Organic  Labor  and  Cost  Data 

Item/Service/Customer  Identification  Production  Data 

Different  types  of  information  can  be  obtained  from  these  data: 

a.  Summary  Information  -  overall  program  cost  and  production  summaries. 

b.  Detailed  Information  -  special  topic  information  obtained  by  sorting 
and  subtotaling  on  preselected  field  values  of  interest. 

c.  Comparative  Information  -  listings  which  allow  comparisons  of  per¬ 
formance  between  Service,  facility,  weapon  system,  etc. 

d.  Indirect  Information  -  reports  which,  while  not  explicitly  answering 
an  end  user's  question,  nevertheless  indicate  a  possible  pattern  of 
activity. 

e.  Statistical  Information  -  data  which  are  not  explicitly  present  in 
the  data  base,  but  which  can  be  computed. 

Examples  of  information  in  these  categories  would  be: 

a.  The  overall  program  summaries  contained  in  the  macro  reports. 

b.  The  cost  of  F-100  engine  overhauls  in  FY  79. 

c.  A  listing  of  all  Federal  Stock  Number  items  which  were  repaired  at 
two  or  more  facilities  in  FY  79,  with  costs  included  for  comparison. 
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d.  A  listing  of  items  for  which  the  average  cost  of  repair  exceeded  the 
procurement  cost.  (This  is  answerable  only  indirectly  from  the 
data,  because  the  Standard  Inventory  Price  field  serves  only  as  an 
indicator  of  procurement  cost — not  an  accurate  measure.) 

e.  Average  overhead  rate  at  Army  depots  in  FY  79  expressed  as  a  per¬ 
centage  of  total  depot  costs. 

The  common  thread  in  these  examples  is  that  the  desired  information  can 
be  expressed  in  terms  of  the  data  fields  in  the  7220 . 29  records .  This 
criterion  determines  whether  or  not  an  information  request  can  be  accommodated 
by  the  Depot  Performance  Data  Base. 

4.3  Query  Capabilities 

4.3.1  Basic  Capabilities 

The  second  stage  in  query  development  is  to  construct  a  query  which  will 
extract  the  relevant  records,  manipulate  the  data  appropriately,  and  produce 
the  desired  report.  This  is  a  technical  problem  in  the  use  of  the  INQUIRE 
language.  It  is  different  from  the  data  versus  information  problem  because 
the  user  is  now  limited  by  INQUIRE 's  capabilities.  This  subsection  outlines 
those  capabilities,  and  Section  4.4  following  provides  guidance  on  query 
formulation.  For  further  information  on  both  topics,  the  user  should  consult 
the  INQUIRE  User  Language  Tutorial. 

As  an  information  retrieval  language,  INQUIRE  is  both  flexible  and  power¬ 
ful.  Experience  has  shown  that  if  a  retrieval  can  be  logically  conceived  and 
formulated  in  English,  then  it  can  be  formulated  in  INQUIRE  as  well.  (In  some 
cases,  however,  the  logical  framework  in  English  does  not  translate  directly 
into  a  similar  framework  in  INQUIRE.) 

INQUIRE ’s  query  capabilities  depend  upon  what  can  be  accomplished  in  the 
three  stages  of  a  typical  query’s  structure:  retrieval,  manipulation,  and 
output  specification.  In  the  retrieval  stage,  INQUIRE  allows  users  to  extract 
records  from  the  data  base  using  selection  criteria,  which  may  take  a  variety 
of  logical  forms.  In  general,  these  criteria  will  consist  of  keys  or  field 
value  specifications  strung  together  using  logical  connectors.  For  example, 
if  a  user  wished  to  examine  USAF  aircraft  engine  overhauls  at  Oklahoma  City 
and  San  Antonio,  the  following  command  would  retrieve  the  desired  records: 

FIND  SERVICE=F  AND  C0MM0DTY=A  AND  FACILITY  CONTAINS  OKLAHOMA  OR  FACILITY 

CONTAINS  ANTONIO  AND  WPC  CONTAINS  A  AND  C0MP0NET  EQ  2 

(In  the  WPC  field,  the  letter  A  is  the  code  for  overhaul;  in  the  COMMODTY 
field,  A  is  the  code  for  aircraft;  in  the  C0MP0NET  field,  2  is  the  code  for 
engine . ) 

Following  retrieval,  INQUIRE  allows  the  user  to  manipulate  the  data. 
Calculations  with  numeric  fields  may  be  performed  and  new  fields  may  be  de¬ 
fined  for  each  of  the  retrieved  records.  For  example,  the  statement: 

COMPUTE  AVG  (TOTLCOST  /  PRODQNTY) 
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would  create  a  field  called  AVG  for  each  retrieved  record.  The  value  in  this 
field  would  be  the  total  cost  of  the  work  in  the  record  divided  by  the  pro¬ 
duction  quantity.  INQUIRE 's  sorting  and  subtotaling  capabilities  are  also  in 
the  manipulation  stage,  but  they  affect  output  format  as  well.  With  the  BREAK 
and  SORT  commands,  users  can  sort  (based  on  field  values)  retrieved  records 
into  groups,  subgroups  within  groups,  etc.  Within  these  nested  sorts,  sub¬ 
totals  may  be  generated  at  each  level. 

Finally,  in  the  output  specification  stage,  users  have  the  capability  to 
organize  generated  information  into  reports,  usually  tables  or  stratified 
lists.  For  the  output  stage,  INQUIRE  has  two  capabilities  which  are  particu¬ 
larly  helpful.  First,  INQUIRE  will  automatically  supply  column  and  row 
titles,  if  they  are  not  specified.  This  capability  not  only  saves  time  in 
query  development,  but  it  also  minimizes  the  likelihood  that  an  output 
formatting  problem  will  cause  a  job  to  fail.  Second,  output  formats  may  often 
be  specified  so  that  manual  analysis  of  retrieved  data  becomes  a  feasible  way 
to  obtain  information  which  would  otherwise  be  difficult  or  time-consuming  to 
obtain  directly. 

This  subsection  has  provided  only  a  general  description  of  INQUIRE 's 
capabilities.  Full  appreciation  of  these  capabilities  can  come  only  through 
use.  Using  the  prewritten  job  streams  (listed  in  Appendix  A),  the  Depot 
Performance  DBS  allows  programmers  and  analysts  to  use  the  system  before  they 
know  how  to  write  queries,  thereby  permitting  them  to  exercise  the  system  and 
learn  its  capabilities  at  the  same  time. 

4.3.2  Advanced  Capabilities 

As  is  the  case  with  any  programming  language,  INQUIRE  allows  queries  to 
be  written  at  different  levels  of  sophistication.  While  most  applications  of 
the  Depot  Performance  DBS  will  not  require  highly  complex  queries,  users 
should  be  aware  that  INQUIRE  has  capabilities  beyond  those  described  above. 
The  purpose  of  this  subsection  is  to  introduce  the  reader  to  some  of  the  more 
advanced  capabilities  and  provide  guidelines  for  their  use.  For  further 
information  on  these  topics,  users  should  consult  the  INQUIRE  User  Language 
Tutorial . 

INQUIRE  has  advanced  capabilities  in  three  areas:  multi-data  base  re¬ 
trieval,  iterative  retrieval,  and  macro  programming.  The  multi-data  base 
capability  allows  users  to  chain  data  bases  together  and  perform  retrievals  on 
the  "linked"  records  which  result.  This  multi-data  base  capability  can  be 
very  useful  for  "relational"  information  requests  in  which  the  retrieval 
criterion  for  any  given  record  depends  on  field  values  in  the  other  records  in 
the  data  base.  This  capability  has  been  used  in  one  application  and  is  dis¬ 
cussed  further  in  Appendix  A  (see  the  discussion  of  the  DUPWRK2  query).  The 
iterative  retrieval  capability  allows  users  to  create  temporary  data  bases, 
and  then  subject  those  data  bases  to  a  "second"  retrieval.  This  capability  is 
discussed  in  Chapter  IX  of  the  User  Language  Tutorial,  in  the  section  on 
temporary  data  bases  and  the  HOLD  command.  The  macro  programming  capability 
allows  users  to  write  queries  using  parameter  lists,  interactive  prompting, 
conditional  execution,  and  branching  in  program  flow.  While  parameter  list 
macros  have  been  used  in  the  Depot  Performance  DBS,  the  other  macro  techniques 
have  not.  Users  may  wish  to  investigate  these  macro  operations  for  future 
applications.  Advanced  macro  programming  is  discussed  in  Chapter  XI  of  the 
User  Language  Tutorial. 


4.4  Query  Formulation 


For  assistance  in  query  formulation,  users  should  refer  to  the  INQUIRE 
User  Language  Tutorial.  The  tutorial  covers  the  entire  INQUIRE  vocabulary 
along  with  all  aspects  of  syntax  and  statement  formation.  Users  may  also 
refer  to  stored  queries  (see  Appendix  A)  for  examples  of  query  construction. 

Listed  below  are  the  more  important  INQUIRE  commands  used  to  formulate 
queries . 


a.  Retrieval  Stage 

FIND  -  permits  the  user  to  directly  access  information  in  the  data 
base  using  keyed  (indexed)  field  values. 

SCAN  -  permits  the  user  to  sequentially  read  each  record  in  the  data 
base  and  select  records  for  retrieval  by  testing  field  values. 

b .  Manipulation  and  Output  Stages 

DEFINE  -  permits  the  user  to  create  temporary  fields  for  retrieval 
and  report  generation. 

COMPUTE  -  allows  the  user  to  compute  values  from  retrieved  data  for 
reporting  or  selection. 

SORT  -  enables  the  user  to  establish  sort  sequences  by  designating 
one  or  more  fields  as  sort  fields. 

BREAK  -  permits  the  user  to  specify  computing,  totaling,  and  print¬ 
ing  actions  before  or  after  a  control  break  in  a  sorted  sequence  of  logical 
records . 


TOTAL  -  permits  the  user  to  compute  cumulative  totals  for  field 
values  and  tables  at  control  breaks  and  at  the  end  of  a  report,  or  give 
certain  values  such  as  averages,  maxima,  or  minima. 

TAB  -  enables  the  user  to  specify  print  positioning  and  formatting 
of  retrieved,  computed,  or  temporary  data. 

TITLE  -  allows  a  user  to  place  a  single-line  or  multi-line  title 
over  column-positioned  data. 

HEADER  -  enables  the  user  to  place  a  single-line  or  multi-line 
heading  at  the  top  of  every  page  of  a  report. 

4.5  Control  Instructions 


The  control  instructions  which  must  accompany  a  query  in  an  application 
job  are  the  JCL  statements.  Line  numbers  10-150  and  320  in  Figure  3-1  are 
representative  JCL  statements  for  a  query.  All  queries  str>-*d  in  the  KEN  data 
set  include  the  required  JCL  statements  for  user  convenience. 
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APPENDIX  A 

CURRENTLY  AVAILABLE  QUERIES  IN  THE  SYSTEM 


This  Appendix  defines  26  prewritten  queries  in  the  Depot  Performance  DBS. 
Of  these,  12  are  macros,  while  14  are  special  application  queries.  Users  may 
access  all  26  queries  in  the  KEN  data  set. 

Macros 


The  Depot  Performance  DBS  allows  users  to  generate  12  different  standard 
summary  reports  using  macro  instructions.  To  use  a  macro,  users  should  call 
for  the  member  name  MACRUN,  MACRUN1,  or  MACRUN2  in  KEN  and  insert  the  desired 
macro  instruction.  The  macro  instruction  consists  of  an  ampersand  (&) ,  fol¬ 
lowed  by  the  macro  call  word,  and  a  parameter  list  (see  Figure  3-4  in 
Section  3  of  the  Manual).  Each  of  the  12  macro  reports,  and  the  associated 
macro  call  words,  are  listed  below.  The  figure  contains  the  specific  macro 
query,  while  the  header  provides  the  actual  title  of  the  report. 

1.  Total  program  cost  (funded/unfunded)  by  commodity  group. 

MACRO:  TOTLBDGT  (Figure  A-l) 

HEADER:  FISCAL  YEAR  19xx 

(SERVICE  NAME) 

TOTAL  DEPOT  MAINTENANCE  COST 

($000) 

2.  Total  program  cost  by  program  element  (funded/unfunded  within  ele¬ 
ment)  and  commodity  group. 

MACRO:  PECBDGT  (Figure  A-2) 

HEADER:  FISCAL  YEAR  19xx 

(SERVICE  NAME) 

COST  BY  PROGRAM  ELEMENT  AND  COMMODITY 

($000) 

3.  Total  program  cost  by  facility  type  (funded/unfunded  within  type) 
and  commodity  group. 

MACRO:  ACTYCMDT  (Figure  A- 3) 

HEADER:  FISCAL  YEAR  19xx 

(SERVICE  NAME) 

COST  BY  FACILITY  TYPE  AND  COMMODITY 

($000) 

4.  Total  program  cost  by  facility  (grouped  by  facility  type)  and 
commodity. 

MACRO:  FACCMDT  (Figure  A-4) 

HEADER:  FISCAL  YEAR  19xx 

(SERVICE  NAME) 

COST  BY  FACILITY  AND  COMMODITY 

($000) 
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5.  Total  cost  (by  cost  category)  and  total  labor  hours  for  each  Type  1 
activity.  (A  Type  1  activity  is  a  gove rnjnent- owned ,  government- 
operated  (GOGO)  depot  maintenance  facility.) 

MACRO:  DEPOTCST  (Figure  A- 5) 

HEADER:  FISCAL  YEAR  19xx 

(SERVICE  NAME) 

COST  BREAKDOWN  BY  GOGO  DEPOT  MAINTENANCE  FACILITIES 

($000) 

6.  Total  cost  (by  cost  category)  for  each  Type  2  activity.  (A  Type  2 
activity  is  a  GOGO  facility,  but  one  which  does  not  have  depot 
maintenance  as  its  primary  mission.) 

MACRO:  NONDEPOT  (Figure  A-6) 

HEADER:  FISCAL  YEAR  19xx 

(SERVICE  NAME) 

COST  BREAKDOWN  BY  GOGO 
NON-DEPOT  MAINTENANCE  FACILITIES 
($000) 

7.  Total  cost  (by  cost  category)  for  each  Type  3  activity.  (A  Type  3 
activity  is  a  contractor-owned,  contractor-operated  (COCO)  facil¬ 
ity.)  Contractors  are  listed  by  identification  number. 

MACRO:  CONTRCST  (Figure  A- 7) 

HEADER:  FISCAL  YEAR  19xx 

(SERVICE  NAME) 

COST  BREAKDOWN  BY  COCO  FACILITY 

($000) 

8.  Total  cost  (by  cost  category)  for  each  Type  4  activity.  (A  Type  4 
activity  is  a  GOGO  depot  maintenance  facility  owned  by  one  Service, 
but  which  performs  maintenance  for  another  Service.) 

MACRO:  INTERSER  (Figure  A- 8) 

HEADER:  FISCAL  YEAR  19xx 

(SERVICE  NAME) 

COST  BREAKDOWN  BY  GOGO  OTHER 
FACILITIES  (INTERSERVICING) 

($000) 

9.  Selected  performance  statistics  for  each  Type  1  activity. 

MACRO:  STATISTI  (Figure  A-9) 

HEADER:  FISCAL  YEAR  19xx 

(SERVICE  NAME) 

SELECTED  FACILITY  PERFORMANCE  STATISTICS 

10.  Total  cost  by  weapon  system  (grouped  by  commodity)  and  maintenance 
work  performance  category. 

MACRO:  SYSWPC  (Figure  A- 10) 

HEADER:  FISCAL  YEAR  19xx 

(SERVICE  NAME) 

TOTAL  COST  BY  WEAPON  SYSTEM  AND 
NON-MAINTENANCE  SUPPORT  WORK  PERFORMANCE  CATEGORIES 

($000) 
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11.  Total  cost  by  weapon  system  (grouped  by  commodity)  and  maintenance 
support  work  performance  category. 

MACRO:  SYSWPCMS  (Figure  A-ll) 

HEADER:  (SERVICE  NAME) 

TOTAL  COST  BY  WEAPON  SYSTEM  AND 
MAINTENANCE  SUPPORT  WORK  PERFORMANCE  CATEGORIES 

($000) 

12.  Total  cost  by  facility  and  selected  work  performance  categories  for 
designated  weapon  systems . 

MACRO:  HISYS  (Figure  A- 12) 

HEADER:  (SERVICE  NAME) 

TOTAL  COST  BY  FACILITY 
AND  SELECTED  WPC  CATEGORIES 
FOR  DESIGNATED  WEAPON  SYSTEMS 
($000) 


Other  Prewritten  Queries 


The  14  special  application  queries  were  developed  to  meet  information 
requests  not  covered  by  the  standard  summary  reports.  The  list  below  des¬ 
cribes  the  reports  these  queries  produce.  To  access  the  queries,  users  should 
call  for  the  indicated  member  name  in  KEN.  The  figure  contains  the  specific 
INQUIRE  statements  in  the  query,  while  the  header  provides  the  actual  title  of 
the  report. 

13.  Directory  of  depot  maintenance  facilities  for  emergency  action  use 
(cross-references  to  the  ALTFAC2  report  below).  The  report  shows 
for  each  weapon  system  (by  type/model/series),  the  facilities  which 
performed  depot  maintenance  on  that  system  and  the  associated  cost 
and  direct  labor  hours. 

KEN  Member  Name:  ALTFAC  (Figure  A-13) 

HEADER:  DEPOT  MAINTENANCE  FACILITY  IDENTIFIER 

BY  TYPE/MODEL/ SERIES 
(BASED  ON  FY  1979  PERFORMANCE  DATA) 

14.  Directory  of  depot  maintenance  facilities  for  emergency  action  use 
(cross-references  to  the  ALTFAC  report  above) .  The  report  shows  by 
facility  and  Service,  the  weapon  systems  supported  and  the  as¬ 
sociated  cost  and  direct  labor  hours. 

KEN  Member  Name:  ALTFAC2  (Figure  A-14) 

HEADER:  DEPOT  MAINTENANCE  FACILITY  IDENTIFIER 

BY  FACILITY 
BY  TYPE/MODEL/SERIES 
(BASED  ON  FY  1979  PERFORMANCE  DATA) 

15.  Directory  of  depot  maintenance  facilities  for  emergency  action  use. 
This  report  is  similar  to  that  generated  by  ALTFAC2  except  it  shows 
which  facilities  supported  specific  components/parts,  by  Federal 
Supply  Class. 

KEN  Member  Name:  QUEST79  (Figure  A-15) 

HEADER:  DEPOT  MAINTENANCE  FACILITY  IDENTIFIER 

BY  FACILITY 

BY  FEDERAL  SUPPLY  CLASS 
(BASED  ON  FY  1979  PERFORMANCE  DATA) 
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16.  Aeronautical  maintenance  workloads  at  selected  facilities  by  Ser¬ 
vice  . 

KEN  Member  Name:  CHECK79  (Figure  A-16) 

HEADER:  WORKLOADS  AT  SELECTED  FACILITIES 

IN  MAN-HOURS,  BY  SERVICE 
AERONAUTICAL  MAINTENANCE  ONLY  FOR  ARMY  &  NAVY 
ALL  MAINTENANCE  FOR  AIR  FORCE 
FISCAL  YEAR  1979 

17.  Depot  maintenance  costs  for  USAF  weapon  systems  by  commodity. 

KEN  Member  Name:  DAVEG  (Figure  A- 17) 

HEADER:  (no  header  prepared) 

18.  Items  receiving  same  work  at  more  than  one  facility.  (Note:  this 

query  is  inefficient  in  that  the  output  must  be  examined  to  obtain 

the  final  information.  The  following  query  retrieves  the  desired 
information  directly.) 

KEN  Member  Name:  DUPWRK1  (Figure  A- 18) 

HEADER:  AIR  FORCE  *  *  FY  1979 

MULTIPLE  FACILITY  -  SAME  ITEM/SAME  WORK 
COST  COMP ARS IONS 

(LARGE  PRODUCTION  QUANTITY  OR  LARGE  EXPENSE) 

(RETRIEVAL  CRITERION:  (PROD.  QNTY . )*  (TOTLCOST)  GTE  50000) 

19.  Air  Force  items  reworked  at  more  than  one  facility.  (Multi-data 

base  query,  see  discussion  at  the  end  of  this  Appendix.) 

KEN  Member  Name:  DUPWRK2  (Figure  A-19) 

HEADER:  AIR  FORCE  *  *  FY  1979 

MULTIPLE  FACILITY  -  SAME  ITEM/ SAME  WORK 
COST  COMPARISONS 

(LARGE  PRODUCTION  QUANTITY  OR  LARGE  EXPENSE) 

(RETRIEVAL  CRITERION:  (PROD.  QNTY. )* (TOTLCOST)  GTE  50000) 

20.  Facilities  which  performed  depot  maintenance  on  items  in  Federal 
Supply  Group  58. 

KEN  Member  Name:  ELEC  (Figure  A-20) 

HEADER:  DEPOT  MAINTENANCE  ON  FEDERAL  SUPPLY  GROUP  58 

COMMUNICATION,  DETECTION,  AND  COHERENT 
RADIATION  EQUIPMENT 
BY  FEDERAL  SUPPLY  CLASS 
(BASED  ON  FY  1979  PERFORMANCE  DATA) 

21.  Modification  of  macro  (ACTYCMDT)  showing  total  cost  by  facility  type 
and  commodity  group  for  work  performance  categories  A  through  N 
only. 

KEN  Member  Name:  QUERY  (Figure  A-21) 

HEADER:  FISCAL  YEAR  1979 

ARMY 

COST  BY  FACILITY  TYPE  AND  COMMODITY 
($000) 

WORK  PERFORMANCE  CATEGORIES:  A-N 
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22.  Modification  of  macro  (PECBDGT)  showing  direct  Army  costs  by  program 
element  and  commodity. 

KEN  Member  Name:  QUERY79  (Figure  A-22) 

HEADER:  FISCAL  YEAR  1979 

ARMY 

DIRECT  (7A)  COSTS  BY  PROGRAM  ELEMENT  AND  COMMODITY 

($000) 

23.  Information  on  depot  maintenance  on  the  F-100  engine  in  FY  1979. 
KEN  Member  Name:  QUEST2  (Figure  A- 23) 

HEADER:  DEPOT  MAINTENANCE  ON  THE  F-100 

ENGINE  IN  FY  1979 

24.  Information  to  estimate  the  total  number  of  tanks  repaired  at 
Anniston  Army  Depot  in  FY  79 . 

KEN  Member  Name:  QUEST5  (Figure  A-24) 

HEADER:  (no  header  prepared) 

25.  Modification  of  macro  (SYSWPC)  showing,  for  combat  vehicles,  total 
cost  by  weapon  system,  work  breakdown  structure,  and  work  per¬ 
formance  categories  A  through  N. 

KEN  Member  Name:  TAB8M0D  (Figure  A-25) 

HEADER:  FISCAL  YEAR  1979:  ARMY 

COMMODITY:  COMBAT  VEHICLES 
TOTAL  COST  BY  WEAPON  YSTEM 
AND 

WORK  BREAKDOWN  STRUCTURE  (WBS):  COMPONENT  LEVEL 
(WORK  PERFORMANCE  CATEGORIES  A  THRU  N  ONLY) 

($000) 

26.  Items  whose  average  maintenance  cost  exceeded  100  percent  of  stand¬ 
ard  inventory  price. 

KEN  Member  Name:  XCESS2  (Figure  A-26) 

HEADER:  (SERVICE  NAME)  **  FY  19xx 

ITEMS  MAINTAINED  IN  EXCESS  OF  100%  OF 
STANDARD  INVENTORY  PRICE 
BY  FACILITY 

(ZERO  PRICE  ITEMS  EXCLUDED  &  TOTAL 
EXCESS  PER  ITEM  GREATER  THAN  $10K) 
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FIGURE  A— 1.  TOTLBDGT 


01000  FIND  S£RVIC£=tfARH(l)  AMI  (COMHODTY  IS  (A,8,C.D,E,F,G,H,K,L)  SET  RON 
02000  OF  A),  DEFINE  A  TABLE  (FLMED  UNFUNDED  TOTLCOST.  SETB  TOTAL,  9) 

02100  B  TEXT  (FUNDED!  UNFUMED*  TOTALS) 

03000  C  TEXT  (AIRCRAFT  AUTOMOTIVE  VEHICLES 
04000  CONSTRUCTION  03MMUNICATICNS/ELECTRONICS  MISSILES  SHIPS 
05000  UEAPONSUMJNITIONS  GENERAL  OTHER  TOTAL),  COMPUTE  FUMED  FORMAT  <K  13) 
06000  (CLABRP  +  CLABRO  +  MLABRP  *  HABRO  *  FHATL  +  FODER  ♦  FGMA  *  FOVRHD  + 
07000  CONTRACT  *  FGFSERV  *  FMAINSPT)  UNFUNDED  FORMAT  (K  13)  (WWTLII  +  UMATLXC 
08000  +  UMATUK  +  UMATUP  *  UOTHER  *  UOVRH)  +  UGMA  +  GFMI I  *  GR1XC  ♦  GFMMC  * 
09000  GFHXP  *  UGFSERV  *  UMAINSPT),  HEADER  'FISCAL  YEAR  &PARM(3)'  'iPARH(2)' 
10000  'TOTAL  DEPOT  MAINTENANCE  COST'  '($000)',  TAB,  TITLE  B  R/A, 

11000  TOTAL  C  A  29  *  (K  13). 

EM)  OF  DATA 


FIGURE  A-2 .  PECBDGT 


00010  FIND  SERVICE=4PARM(1)  AND  (COmOOTY  IS  (A,B,C.D.E,F,G.H,K,L)  SET  COL 
00020  OF  A),  DEFINE  A  TABLE  (SETB  TOTAL,  FUNDED  UNFUNDED  TOTLCOST,  9) 

00030  B  TEXT  (AIRCRAFT  AUTO  VEHICLES  CONSTRUCT  COM/ELEC  MISSILES  SHIPS 
00040  UEAPUMUN  G0€RAL  OTHER  TOTAL)  C  TEXT  (FUMED  UNFUNDED  TOTAL),  CDTPUTE 
00050  FUMED  (CLABRP  f  CLABRO  +  MLABRP  +  MABRO  ♦  FMATL  +  FOTTCR  ♦ 

00060  FOVRHD  +  FGtfcA  ♦  CONTRACT  ♦  FGFSERV  *  FMAINSPT)  UfFUMED  (UMATLII 
00070  ♦  UMATLXC  *  UMATUK  *  UMATUP  *  UOTHER  ♦  UOVRHD  ♦  (JGUA  +  GFHII  ♦ 

00080  GFMXC  +  GPfK  ♦  GFHXP  +  UGFSERV  +  UMAINSPT), 

00085  HEADER  'FISCAL  YEAR  1PARH13)'  '*PARM<2)' 

00090  'COST  BY  PROGRAM  ELEMENT  AM)  COMMODITY'  '($000)',  TAB, 

00100  TITLE  B  R/A,  BREAK  AFTER  PROGRAM  SKIP  'PROGRAM  ELEMENT  ' 

00110  PROGRAM  SXIP  C  TOTAL  OF  A  11  *  <K  9). 

END  OF  DATA 


FIGURE  A- 3.  ACTYCMDT 


00010  FIND  SERVICE=*PARH(1)  AM)  (COWODTY  IS  <A,B,C,D.E,F,G,H,K,L) 
00020  SET  COL  OF  A),  DEFINE  A  TABLE  (SETB  TOTAL,  FUMED  UNFUMED 
00030  TOTLCOST,  9)  B  TEH  (AIRCRAFT  AUTO  VEHICLES  CONSTRUCT  COM/ELEC 
00040  MISSILES  SHIPS  WEAPONMHUN  GENERAL  OTHER  TOTAL)  C  TEXT  (FUMED 
00050  UNFUNDED  TOTAL),  COfPUTE  FUNDED  (CLABRP  ♦  CLABRO  ♦  MLABRP  + 
00060  HLABRO  ♦  FMATL  ♦  FODCR  ♦  FOVWC  ♦  FGttA  +  CONTRACT  ♦ 

00070  FGFSERV  +  FMAINSPT)  (JFUMED  (UMATLII  +  UMATLXC  ♦  UMATUK  ♦ 
00080  UMATUP  +  UODCR  ♦  UOVRHD  ♦  UGUA  ♦  GFHII  +  GFMXC  ♦  GFMMC  * 
00090  GFHXP  +  UGFSERV  ♦  UMAINSPT),  HEADER  'FISCAL  YEAR  iPARM(3)' 
00100  'LPARH12)'  'COST  BY  FACILITY  TYPE  AND  COMMODITY'  '($000)', 
00110  TAB,  TITLE  B  R/A,  BREAK  AFTER  ONNROPER  SKIP  'FACILITY  TYPE  ' 
00120  ONNROPER  SKIP  C  TOTAL  OF  A  II  »  (K  9). 

EM)  OF  DATA 


FIGURE  A-4.  FACCMDT 


00010  FIND  $ERVICE=4PARH(1)  AM)  (C0HH0DTY  IS  IA,8,C,D,E.F,G,H,K,L) 
00020  SET  COL  OF  A),  DEFINE  A  TABLE  (SETB  TOTAL,  TOTLCOST,  9)  B  TEXT 
00030  (AIRCRAFT  AUTO  VEHICLES  CONSTRUCT  COM/ELEC  MISSILES  SHIPS 
00040  WEAPttMUN  GENERAL  OT)£R  TOTAL),  HEADER  'FISCAL  YEAR  ltPARH<3>' 
00050  vami)'  'COST  BY  FACILITY  HQ  COttWDITY'  '!$000>',  TITLE 
00060  B  R/A,  TAB,  BREAK  BEFORE  QHWOPER  SKIP  'FACILITY  TYPE  ' 

00070  OWMRCPER  SKIP  AFTER  FACILITY  FACILITY  TOTAL  OF  A  17  *  (K  8) 
00080  AFTER  OUNROPER  'TOTAL'  TOTH.  OF  A  17  *  (K  8). 

END  OF  DATA 


FIGURE  A- 5 .  DEPOTCST 


00010  FIND  SERVICE=tfARH(l)  AND  (OMROPER  IS  (1)  SET  ROM  OF  A), 

00020  DEFINE  A  TABLE  (LABRHRS  LABRCOST  NATL  OTHRDRCT  HAINTSPT  OVRHD  GOA 

00030  TOTLCOST,  SETB,  9)  B  TEXT  (LABRHRS  LABRCOST  NATL  OTWDRCT 

00040  HAINTSPT  OVRHD  SUA  TOTLCOST),  COMPUTE  LABRHRS  (CLABRPHR  *  CLABROHR 

00050  +  MLABRPHR  ♦  ILABROHR)  LABRCOST  (CLABRP  ♦  CLABRO  +  HLABRP  f  HLABRO) 

00060  MA7L  (FHA7L  *  UMATLJI  ♦  UMATUC  *  UNATUK  ♦  UHATLXP)  HAINTSPT 

00070  (FMAINSPT  +  UMAINSPT)  OTHRDRCT  (POTHER  ♦  U0THER)  OVRHD  (FOVRHD  *  UOVRHD) 

00080  GUA  (FGLLA  ♦  UGMA),  HEADER  'FISC#.  YEAR  LPARH(3)'  'ltPARH(2)' 

00090  'COST  BREAKDOUN  BY  GOGO  DEPOT  MAINTENANCE  FACILITIES' 

00100  '($000)',  TAB,  TITLE  B  R/A,  BREAK  AFTER  FACILITY 
00110  SKIP  FACILITY  TOTAL  OF  A  17  (K  9),  TOTAL  'TOTAL'  A. 

END  OF  DATA 


FIGURE  A-6.  NONDEPOT 


00010  FIND  SERVICE=4PARMI1)  AND  (OMNROPER  IS  (2)  SET  ROM  OF  A), 
00020  DEFINE  A  TABLE  (CONTRACT  GFHATL  GFSERV  HAINTSPT  TOTLCOST, 
00030  SETB)  B  TEXT  (CONTRACT  GFMATL  GFSERV  HAINTSPT  TOTAL), 

00040  CONFUTE  GFMATL  (GFMII  ♦  GFMXC  *  GFMMK  +  GFHXP)  GFSERV 
00050  (FGFSERV  ♦  UGFSERV)  HAINTSPT  (FMAINSPT  +  UMAINSPT), 

00060  HEADER  'FISCAL  YEAR  LPARM(3)'  S<P«M(2)' 

00070  'COST  BREAKDOUN'  'BY'  'GOGO  NON-DEPOT  MAINTENANCE  FACILITIES' 
00075  '($000)', 

00080  TAB,  TITLE  B  R/A,  BREAK  AFTER  FACILITY  SKIP  FACILITY  TOTAL 
00090  OF  A  17  (K  9),  TOTAL  'TOTAL'  A. 

EM)  OF  DATA 


FIGURE  A-7.  CONTRCST 


00010  FIND  SERVIC£*y>MN(i)  AND  (OUNROPER  IS  (3)  SET  ROM  OF  A). 
00020  DEFINE  A  TABLE  < CONTRACT  GFWATL  GFSERV  WAIMTSPT  TOTLCOST, 
00030  SETB)  8  TEXT  (CONTRACT  GFWATL  GFSERV  NAINTSPT  TOTAL). 

00040  CONFUTE  GFWATL  (GFWII  *  GFNXC  *■  GFNHK  +  OTfXP)  GFSERV 
00050  (FGFSERV  ♦  UGFSERV)  MAINTSPT  (FWAINSPT  +  UNAINSPT), 

00060  fCADER  'FISCAL  YEAR  tfARN(3)'  'LFARHC2)' 

00070  'COST  BREAKDOWN  BY  COCO  FACILITIES'  '(*000)', 

00080  TAB,  TITLE  B  R/A,  BREAK  AFTER  FACILITY  SKIP  FACILITY  TOTAL 
00090  OF  A  17  (K  9),  TOTAL  'TOTAL'  A. 

END  OF  DATA 


FIGURE  A-8 .  INTERSER 


00010  FIND  SERVICEa&PMNU)  AM)  (OUNROPER  IS  <4/  SET  RON  OF  A), 

00020  DEFINE  A  TABLE  (CONTRACT  GFWATL  GFSERV  NAINTSPT  TOTLCOST.  SETB) 

00030  B  TEXT  (CONTRACT  GFWATL  GFSERV  NAINTSPT  TOTAL).  COMPUTE  GFWATL 
00040  (GFWII  ♦  GFWXC  ♦  GFWNK  ♦  GFWXP)  GFSERV  (FGFSERV  +  UGFSERV) 

00050  NAINTSPT  (FWAINSPT  ♦  UNAINSPT).  HEADER  'FISCAL  YEAR  &PARM3)' 

00060  'tPARH<2J'  'COST  BREAKDOWN  BY  GOOD  OTHER  FACILITIES  (INTERSERVICING)' 
00070  '(4000)',  TAB.  TITLE  B  R/A,  BREAK  AFTER  FACILITY  SKIP 
00080  FACILITY  TOTAL  OF  A  17  (K  9),  TOTAL  'TOTAL'  A. 

END  GF  DATA 


FIGURE  A-9.  STATISTI 


00010  FIND  SERVICEstPARNUJ  AM)  0MW3PER  IS  1,  COMPUTE 

00020  SCIVLABR  (CLAGRP  ♦  CLABRO)  SLABS  (SCIVLABR  +  HLABRP  *  MLABRO) 

00030  SCIVWS  (CLASRPW  +  OABROW)  SLABRHRS  (SCIVHRS  +  NLABRPHR  +  MLABROHR) 
00040  SFUNDED  (SLABR  +  FWATL  +  FOTffi?  *  FOVRHD  +  FGJAA 
00050  t  FWAINSPT)  SOVRW  (FOVRHD  *  UOVRHD)  SINDRCT  (SOVRW)  + 

00060  FGttA  ♦  UGttA)  SWATL  (FWATL  +  UHATLII  +  UNATLXC  +  UWATLWK 
00070  ♦  UWATLXP),  HEADER  'FISCAL  YEAR  &PARW(3)'  'W>ARK<2)' 

00080  'SELECTED  FACILITY  PERFORMANCE  STATISTICS', 

00082  TITLE  (OVERHEAD  COST  PER  LABOR  HOUR) 

00083  QVHD/HRS  (LABOR  TO  IWHRECT  RATIO)  LAB/INDR  (LABOR  TO  MATERIAL  RATIO) 
00084  LAB/NATL  (MATERIAL  COST  PER  LABOR  HOUR)  NATL/HRS 
00085  (CIVILIAN  LABOR  COST  PER  HOUR)  CIVRATE  (TOTAL  COST)  TOTLCST 
00086  (PERCENT  FUNDS)  ZFUNOED  (LABOR  TO  OVERKAD  RATIO)  LAB/OVHD, 

00090  BREAK  AFTER  FACILITY  COMPUTE  TOTLCST  (TOTAL 

00100  OF  TOTLCOST)  FUWJS  (TOTAL  OF  SFUNDS)  IFUNDS  FORMAT  (PCT2) 

00110  (FUNDS  /  TOTLCST)  LAW  (TOTAL  OF  SLABR)  OVRHD  (TOTAL  OF 
00120  SOVRHO)  LAB/OVHD  FORMAT  <D2)  (LABS  /  OVRHD)  LABRHR  (TOTAL  OF 
00130  SLABRHRS)  OVWJ/HRS  FORMAT  (02)  (OVRHD  /  LABRHR)  IKJRCT  (TOTAL  OF 
00140  SINDRCT)  LAB/INOR  FORMAT  (D2)  (LABS  /  INORCT)  NATL  (TOTAL  OF  SMATL) 
00150  CIVLABR  (TOTAL  OF  SCIVUW)  CIVHRS  (TOTAL  OF  SCIVHRS) 

00160  LAB/NATL  FORMAT  (D2)  (LABS  /  NATL)  NATL/HRS  FORMAT  (D2)  (NATL  /  LABRffi) 
00170  CIVRATE  FORMAT  (D2>  (CIVLAW  /  CIVHRS)  TM  FACILITY  TOTLCST  17  ♦  («K  8) 
00180  XFUNOS  (PCT2  8)  LAB/OVHD  (02  8)  OVHD/WS  (402  8) 

00190  LAB/ IM1P  (02  8) 

00200  IAB/WATL  (D2  8)  NATL/WS  I4D2  8)  CIVRATE  (4D2  3). 

EM)  OF  DATA 


A- 8 


FIGURE  A- 10.  SYSWPC 


00010  FIND  SERVICE=4PARM(  1 )  AW  (UPC  IS  (A,B,C,D,E,F,G,H,I,J.K,L,H,N)  SET  COL 
00020  OF  A),  DEFINE  A  TABLE  fSETB,  TOTLCOST)  B  TEXT  (OVRHAUL  PROGMNT 
00030  CCNVER  ACTIV  INACTIV  RENOVAT  REWORK  NOD  REPAIR  TEST 
00040  MFG  RECLAH  STORAGE  TECHAID),  HEADER  'FISCAL  YEAR  5iPARH<35'  'iPARM<2>' 
00050  'TOTAL  COST  BT  WEAPON  SYSTEM'  'fM' 

00060  'm-MINTOmE  SUPPORT  WORK  PERFORMANCE  CATEGORIES' 

00070  '(*000)',  TAB,  TITLE  B  R/A,  BREAK  BEFORE  COWODTY 

00060  SKIP  2  '***  COMMODITY  '  COMMODTY  '  ***'  SKIP  2  AFTER  SYSTEM  SYSTEM  TOTAL 

00090  OF  A  7  *  (K  7). 

END  OF  DATA 


FIGURE  A-ll.  SYSWPCMS 


00010  FIW  SERVICE=4PARM(1)  AND  (NFC  IS  (P.Q.R.S.T)  SET  COL  OF  A), 

00020  DEFINE  A  TABLE  (SETB,  TOTLCOST)  B  TEXT 

00021  (PROG/PLANSPT  HNT/TECHSPT  TECH/ENGQATA  TECH/ADMINTRNG 

00022  NON-MNT),  WADER  'lPAfiM(2)' 

00030  'TOTAL  COST  BY  UBVON  SYSTEM'  'AW' 

00040  'MAINTENANCE  SUPPORT  WORK  PERFORMANCE  CATEGORIES'  '(IN  THOUSANDS  OF  «)', 
00050  TAB,  TITLE  B  R/A, 

00080  BREAK  BEFORE  COfflODTY  SKIP  2  '***  COMMODITY  ' 

00090  COHHODTY  '  ***'  SKIP  2  AFTER  SYSTEM  SYSTEM  TOTAL  OF  A  7  *  (K  20). 

END  OF  DATA 


FIGURE  A- 12.  HISYS 


00010  FIND  SERVICE*WMn 

00020  AW  (COMMODTY*LPARM(2)  AW  SYSTEH»tt>ARN<3>>  OR  (C0MH00TY«*PARH<4) 
00030  AW  3YSTEM*4PARH<5))  OR  (COMHOOTY-tfWKS)  AND  SYSTEM=LPARM(7)) 

00040  OR  (C0m0DTY=tf(W1(8)  AW  SYSTEM=4PARM(9))  OR  <CflNHODTY*tPARH(10) 
00050  AW  SYSTEHMiPAfiH(ll))  OR  (C0MM0DTY=tPARM(12)  AW  SYSTEM*LPARM(13)) 
00060  OR  ( CDMMODTY*tPARM(  14)  AW  SYSTEH*tPARH<  35) )  AW 
00090  (UPC  IS  (A,C,H.I,J,K)  SET  Ca  OF  A),  DEFIW  A  TABLE  (SETB,  TOTLCOST) 
00100  8  TEXT  (OVERHAUL  COM£R  HOD  REPAIR  TEST  WG), 

00105  HEADER  'FISC#.  YEAR  *PMM(17>'  'M>ARM(16)' 

00110  'TOTAL  COST'  'BY'  'FACILITY  AW  SELECTED  UPCS'  'FOR' 

00120  'DESIGNATED  WEAPON  SYSTEMS'  '(*000)',  TAB,  TITLE 
00125  (COWDITY)  R/COWODTY  (SYSTEM)  SYSTEM  (FACILITY)  R/FACILITY 
00130  B  R/A,  BREAK  BEFORE  COMHOOTY  SKIP  COWOOTY  9  SKIP  BEFORE  SYSTEM 
00140  SYSTEM  16  AFTER  FACILITY  FACILITY  22  TOTAL  OF  A  39  ♦  (K  9). 

EW  OF  DATA 


FIGURE  A- 13.  ALTFAC 


00190  SCAN  FSC1  CONTAINS 

00191  (A,8,C,D,E,F,G,H.I,J,K,L,N,N,(LP,Q,R,S,T,U,V,li,X,Y,Z)  OR 
00192  FSC2  CONTAINS 

00193  (A,  B«C,D,E>F,G,H,  I,  J,K,L>HiN,0,PiQ,  R,S,TiU,  V,H<  X,  Y,  Z)  OR 
00194  FSC3  CONTAINS 

00195  (A,B,C.D,E,F,G,H,I.J,K,L,H,N,0,P,fl,R,S,T,U,V,M,X,Y,Z>  OR 
00196  FSC4  CONTAINS 

00197  <A,B,C,D,E,F,G,H,I.J,K,L,H,N.O,P,fl,R,S,T,U.V,IU.Y,Z), 

00230  DEFINE  FSC1  I7ENNUW  (SUBFIELD  1  1)  FSC2  ITENNUMB  (SUBFIELD  2  1) 
00240  FSC3  ITENNUMB  (SUBFIELD  3  1)  FSC4  ITENNUMB  (SUBFIELD  4  1). 

00260  COMPUTE  HRS  (CLABRPHR  ♦  CLABROHR  +  dABRPW  +  (lABROHR)i 
00270  BREAK  BEFORE  ITENNUMB  TAB  ITEHNUHI  1  BEFORE  SERVICE  TAB  SERVICE  30 
00280  AFTER  FACILITY  COMPUTE  TOTCST  (TOTAL  OF  TOTLCOST) 

00290  TOTHRS  (TOTAL  OF  HRS)  TAB  FACILITY  48 
00300  TOTCST  68  TOTHRS  88, 

00305  TITLE 

00310  (TYPE/  MODEL/  SERIES)  ITENNUMB 
00320  (SERVICE  A-ARHY*»H(AVY  F*AIRFORCE*M*MARINES)  SERVICE 
00330  (FACILITY  NAME)  FACILITY  (TOTAL  MAINTENANCE)  R/TOTCST 
00340  (TOTAL  LABOR  HOURS)  R/TOTWS. 

00350  f€AOER  'DEPOT  MAINTENANCE  FACILITY  IDENTIFIER' 

00360  'BY  TYPE/MODEL/SERIES'  '(BAS a  ON  FY  1979  PERFORMANCE  DATA)'  '  '. 


A- 14.  ALTFAC2 


00190  SCAN  FSC1  CONTAINS 

00200  <A,B.C,D,E,F,G,H,t,JXL.N,N.O,P,fi,R,$,T,U.V,H,X,Y,Z)  OR 
00210  FSC2  CONTAINS 

00220  <A,8.C.D.E,F,G,H,I,J,K,l,H,N,0,P>0,R.S,T,U,V,tU,Y,Z)  OR 
00230  FSC3  CONTAINS 

00240  <A,B.C.O,E,F,G,H,I,J,K,L,H,N,0,P,Q,R,S,T,U,V,«,X,Y,Z)  OR 
00250  FSC4  CONTAINS 

C0260  (A,B,C,D,E,F,G,H,J.J,K,L,N.N,0,P,Q,R,S,T,y,V,H,X,Y,Z), 

00270  DEFINE  FSC1  ITENNllffi  (SUBFIELD  1  1)  FSC2  ITENNUMB  (SUBFIELD  2  1) 
00280  FSC3  ITENNUMB  (SUBFIELD  3  1)  FSC4  ITEJWUHB  (SUBHELD  4  1), 

00290  COMPUTE  HRS  (CLABRPHR  +  CLABROHR  +  MLABRPHR  ♦  KABROHR), 

00300  BREAK  BEFORE  SERVICE  TAB  SERVICE  11  BEFORE  FACILITY 

00310  TAB  SERVICE  11  FACILITY  30 

00320  AFTER  ITENNUMB  COMPUTE  TOTCST  (TOTAL  OF  TOTLCOST) 

00330  TOTWS  (TOTAL  OF  fPS)  TM  ITENNUMB  55 
00340  TOTCST  75  TOTWS  95, 

00350  TITLE 

00360  (TYPE/  MODEL/  SERIES)  ITENNUMB 
00370  (SERVICE  A*ARHY»fWIAVY  F*AIRFORCE«HWRINES)  SERVICE 
00380  (FACILITY  NAME)  FACILITY  (TOTAL  MAINTENANCE)  R/TOTCST 
00390  (TOTAL  LABOR  HOURS)  R/TOTHRS, 

00400  HEADER  'DEPOT  MAINTENANCE  FACILITY  IDENTIFIER' 

00410  'BY  FACILITY'  'BY  TYPE/HQOEL/SERIES' 

00420  '(BASED  ON  FY  1979  PERFORMANCE  DATA)'  ' 


A- 10 


FIGURE  A- 15.  QUEST79 


00190  SCAN  FSC1  CONTAINS  <0,1, 2, 3, 4, 5, 6, 7, 8, 9)  AND 
00200  FSC2  CONTAINS  (0,1, 2, 3, 4,5, 6, 7, 8, 9)  AW) 

00210  FSC3  CONTAINS  <0,1, 2, 3, 4, 5, 6, 7, 8, 9)  AND 

00220  FSC4  CONTAINS  <0,1,2,3,4,5,6,7.3,9), 

00230  DEFINE  FSC1  1TEMNUMB  (SUBFIELD  1  1)  FSC2  ITEHNUMB  (SUBFIELD  2  1) 
00240  FSC3  lTENNUTfi  (SUBFIELD  3  1)  FSC4  ITENNUMB  I  SUBFIELD  4  1) 

00230  FSC  ITEIflUfffi  (SUBFIELD  1  4), 

00280  COMPUTE  HRS  (CLABRPffl  *  CLABROtf?  *  HLABRPHR  +  MLABROHR), 

00270  BREAK  BEFORE  SERVICE  TAB  SERVICE  11  BEFORE  FACILITY  TAB  SERVICE  11 
00280  FACILITY  30  AFTER  FSC  COMPUTE  TOTCST  (TOTAL  OF  TOTLCOST) 

00290  TOTHRS  (TOTAL  OF  HRS)  TAB  FSC  55 
00300  TOTCST  73  TOTHRS  95, 

00305  TITLE 

00310  (FEDERAL  SUPPLY  CLASS)  FSC 
00320  (SERVICE  A=ARHY*N=NAVY  F*AIRFORCE*ft-flARI)ES}  SERVICE 
00330  (FACILITY  NAIC)  FACILITY  (TOTAL  MAINTENANCE)  R/TOTCST 
00340  (TOTAL  LABOR  HOURS)  R/TOTWS, 

00350  HEADER  'DEPOT  MAINTENANCE  FACILITY  IDENTIFIER' 

00380  'BY  FACILITY' 

00370  'BY  FEDERAL  SUPPLY  CLASS'  '(BASED  ON  FY  1979  PERFORMANCE  DATA)'  ' 


FIGURE  A- 16.  CHECK79 


00190  SCAN  (SERVICE  EB  A  AND  COWOUTY  EB  A  AM)  FACILITY  EB 
00200  (ARADMAC,  'NEM  CUMBERLAM)',  SACRAMENTO,  'RED  RIVER', 

00205  TOSTNAMM))  OR  (SERVICE  EB  F  AND  FACILITY  EB 
00210  (NEWARK,  OGDEN,  'OKLAHOMA  CITY',  SACRAMENTO,  'SAN  ANTONIO', 
00220  'WARNER  ROBINS'))  OR  (SERVICE  EB  N  AND  FACILITY  IS  MARF 

00230  AND  COHMODTY  EB  A  AM)  LA6RHRS  ME  0), 

00270  COTPUTE  LABRWS  (CLAGRPNR  ♦  CLABROHR  +  MLABfPNR  +  MLABROHR) 

00280  PRODWS  (CLABRPHR  HABRPHR) 

00290  CIVLHRS  (CLABRPW  *  CLABROHR) 

00300  HILTWS  (MLABRPHR  *  MLABROHR), 

00310  BREAK  BEFORE  SERVICE  *****  FACILITIES  OPERATED  BY  '  SERVICE  ♦ 

00320  BEFORE  FACILITY  SKIP  2  '***  WORKLOAD  AT  '  FACILITY  * 

00330  AFTER  FACILITY  SKIP  'TOTAL  LABOR  HOURS'  TOTAL  OF  LABRHRS  42 
00340  SKIP  'TOTAL  PRODUCTION  HOURS'  TOTAL  OF  PRODHRS  42 
00350  SKIP  'TOTAL  CIVILIAN  HOURS'  TOTAL  OF  CIVLHRS  42 

00360  SKIP  'TOTAL  MILITARY  HOURS'  TOTAL  OF  HILTHRS  42  CEJECT  13 

00370  AFTER  SERVICE  SKIP  2 'TOTAL  LABOR  HOURS  FOR  SERVICE . ' 

00380  TOTAL  OF  LABRHRS  42  SKIP  9, 

00390  HEADER  'WORKLOADS  AT  SELECTED  FACILITIES'  'IN  NAN  HOURS,  BY  SERVICE' 
00400  'AERONAUTICAL  MAINTENANCE  OM.Y  FOR  ARMY  AM)  NAVY' 

00410  'ALL  MAINTENANCE  FOR  AIR  FORCE'  'FISCAL  YEAR  1979'. 


A-ll 


FIGURE  A-17.  DAVEG 


00190  FIND  SERVICED. 

00200  BREAK  BEFORE  COMMODTY  CCWODTY  AFTER  SYSTEM 

00210  COMPUTE  TOTL  (TOTAL  OF  TOTLCOST)  TAB  SYSTEM  TOTL 

00220  AFTER  COMMCOTY  TAB  'TOTAL  COST  OF  UPN  SYSTEMS  IN  COfWOITY' 

00230  COmOOTY  »  TOTAL  OF  TOTLCOST, 

00240  TOTAL  'TOTAL  COST  OF  ALL  USAF  UPN  SYS  it  ENDITEMS  IN  FY79'  TOTLCOST. 


FIGURE  A- 18.  DUPWRK1 


00190  FIND  SERVICED  AM)  CRIT  GE  50000, 

00200  COMPUTE  CRIT  (PRODQNTY  *  TOTLCOST), 

00210  HEADER  'AIR  FORC£«FY  1979'  'MULTIPLE  FACILITY  -  SAME  ITEM/SAME  DORK' 
00220  'COST  COtMRISONS'  '(LARGE  PRODUCTION  QUANTITY  OR  LARGE  EXPOISE)' 
00230  '(RETRIEVAL  CRITERION!  (PROD.  ONTY.)  *  (TOTLCOST)  GTE  50000)' 

00240  '  ', 

00250  BREAK  BEFORE  ITEMNUMB  ITBtJAME  ITEMNUMB  UBS  SYSTEM 

00260  BEFORE  UPC  TAB  UPC  3  11 

00270  AFTER  FACILITY  COMPUTE  TOT  (TOTAL  OF  TOTLCOST) 

00280  PQ  (TOTAL  OF  PRODCWTY) 

00290  AVG  (TOT  /  PQ)  IOTA  (AVG  *  PQ) 

00300  TAB  FACILITY  57  PQ  *  13  AVG  #  15  TOTA, 

00310  TITLE  (ITEM  NAIC)  ITEMNA*  (ITEM  NUMBER)  ITEMNUMB  (UBS)  UBS 
00320  (UPN  SYSTEM)  SYSTEM 

00330  (MORK  PERFORMANCE  CATEGORY)  UPC  (FACILITY)  FACILITY 
00340  (PRODUCTION  QUWIT1TY)  PQ  (AVERAGE  MAINTENANCE  COST)  AVG 
00350  (TOTAL  COST)  R/TOTA. 
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FIGURE  A- 19.  DUPWRK2 


00180  OPEN  FILE  *  AS  091,  FILE  *  AS  DB2, 

00190  COMCCT  DB1  TO  DB2  BY  1TEMW. 

00200  FIND  IN  OBI  SERVICED  AND 

00210  IN  0S2  SERVICED  AND 

00220  FACILITY  IN  Ml  1C  FACILITY  IN  DBS  AND 

00230  UBS  IN  D81  EQ  ICS  IN  DB2  AND  CRIT1  GE  50000  AND 

00240  UPC  IN  081  EQ  UPC  IN  0B2  AND  SYSTEM  IN  DB1  EQ  SYSTEM  IN  0B2. 

00250  COMPUTE  CRIT1  (PRODQNTY  IN  OBI  *  TOTLCOST  IN  DBi), 

00260  HEADER  'ARMYwfY  1979'  'HULTIFLE  FACILITY  -  SANE  ITEM/SAME  UORK' 
00270  'COST  COP  ARISONS'  '(LARGE  PRODUCTION  QUANTITY  OR  LARGE  EXPENSE)' 
00280  '(RETRIEVAL  CRITERION*  (PROD.  QNTY. )  «  (TOTLCOST)  GTE  50000)' 
00290  ' 

00300  BREAK  BEFORE  ITEMNUW  ITEMNAHE  ITEMNUMB  UBS  SYSTEM 
00310  BEFORE  UPC  UPC  5S  11 

00320  AFTER  FACILITY  IN  DB1 

00330  AFTER  ITEM)  IN  OBI 

00340  COMPUTE  AVG  (TOTLCOST  IN  DB1  /  PRODQNTY  IN  DB1) 

00350  TOTA  (AVG  *  PRODQNTY  IN  DB1) 

00360  TAB  FACILITY  60  PRODQNTY  36  13  AVG  *  15  TOTA, 

00370  TITLE  (ITEM  NAME)  ITEMNAC  (ITEM  NUMBER)  ITEMNUHB  (MBS)  UBS 
00380  (WEAPON  SYSTEM)  SYSTEM 

00390  (WORK  PERFORMANCE  CATEGORY)  UPC  (FACILITY)  FACILITY 

00400  (PRODUCTION  QUANTITY)  PRODQNTY  (AVERAGE  MAINTENANCE  COST)  AVG 
00410  (TOTAL  COST)  R/TOTA. 


FIGURE  A- 20.  ELEC 


00190  SCAN  FSG  CONTAINS  58, 

00200  DEFINE  FSG  ITEMNUMB  (SUBFIELD  1  2)  FSC  I7EMNUNB  (SUBFIELD  1  4), 
00210  COMTE  OLH  (CLABRPHR  +  OABROW  +  MLA8RPHR  ♦  MLABROW) 

00220  OLD  (CLABRP  *  CLABRO  ♦  MLABRP  +  fLABRO) 

00230  MOO  (FHATL  +  UHATLII  +  LMATLXC  ♦  UHATUK  *  UMATLXP  + 

00240  F0THER  *  HOTTER) 

00250  IGA  (FQVRHD  ♦  UOVRHD  +  FGM  +  UGtt) 

00255  CNT  (CONTRACT  +  GFMII  ♦  GFMXC  *  GFMMK  ♦  GFMXP  +  FGFSERV  +  UGFSERV), 

00260  BREAK  BEFORE  FSC  TAB  '*«fEDERAL  SUPPLY  CLASS  '  '»*  '  FSC  '  ***' 

00270  SKIP  3  AFTER  FSC  SXIP  5  BEFORE  ITEMNUMB 

00280  BEFORE  FACILITY  AFTER  UPC  COMPUTE 

00290  TDLH  (TOTAL  OF  DLH)  TDLD  (TOTAL  OF  OLD)  TROD  (TOTAL  OF  HOD) 

00300  TIGA  (TOTAL  OF  IGA)  TCNT  (TOTAL  OF  CNT) 

00310  TOT  (TDLD  +  TMOD  ♦  TIGA  ♦  TCNT) 

00320  QNTY  (TOTAL  OF  PROOQNTY) 

00330  MCU  ROUW  (TOT  /  QNTY)  TAB  ITEMNUMB  ITEHNAIE  16 

00340  SERVICE  38  FACILITY  41NPC5e«TY*8TDLH*8TDLD»8 

00350  THOD  ♦  3  TIGA  *  8  TOT  »  17  MCU  t  8, 

00360  TITLE  (TOTAL  HNCL/GFM  ON  CONTRACT  UORK*)  R/TOT 

00370  (ITEM  ID  NO)  L/ITEMMB  (ITEM  NAIC)  UITEfNAME 

00380  (S  V  0  R/SERVICE  (FACILITY  NAfC/COOE)  L/FACILITY 

00390  (UORK  PERF  CAT)  R/UPC  (QUAN  COMP)  R/QNTY  (DIR  LAB  HRS)  R/TDLH 

00400  (DIR  LAB  *)  R/TDLD  (fttT  6  OTW  DIR)  R/TMOO  (I)ffl  it  <*A)  R/TIGA 

00410  (MAINT  C1T/UNIT)  R/HCU, 

00420  WttR  'DEPOT  MAINTENANCE  ON  FEDERAL  SUPPLY  GROUP  56' 

00430  'COMMUNICATION,  DETECTION,  AM)  COCRENT  RADIATION  EQUIPMENT' 

00440  'BIT  FEDERAL  SUPPLY  CLASS'  '(BASED  ON  FY  1979  PERFORMANCE  DATA)'  ' 
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FIGURE  A-21.  QUERY 


00190  FIND  SERVICED  AND  HP  CONTAINS  (A.D.C.D^.F.G.H.I.J.K.L.N.N) 
00191  AND  (COMHODTY  IS  (A.B.C.D.E.F.G.H.K.L)  SET  COL  OF  A), 

00192  DEFINE  HP  HPC  I SUBFIELD  1  1) 

00200  A  TABLE  (SETB  TOTAL.  FUNDED  UNFUNDED 
00210  TOTLCOST .  9)  B  TEXT  (AIRCRAFT  AUTO  VEHICLES  CONSTRUCT  CON/ELEC 
00220  MISSILES  SHIPS  HEAPONtMUN  GENERAL  OTHER  TOTAL)  C  TEH  (FUNDED 
00230  UNFUNDED  TOTAL).  COMPUTE  FUNDED  (CLABRP  ♦  CLABRO  +  ItABRP  + 
00240  MLABRO  ♦  FMATL  *  FODER  +  FOVRHD  +  FGW  ♦  CONTRACT  ♦ 

00250  FGFSERV  ♦  FMAINSPT)  UJfUNDED  (UNATLII  +  UMATIXC  +  UHATLHK  * 
00260  UHATLXP  +  UOTICR  +  UOVRHD  +  IBM  +  GFHII  +  GFMXC  ♦  GFMHK  ♦ 
00270  GFMXP  +  UGFSERV  +  UNAINSPT),  HEADER  'FISCAL  YEAR  1979' 

00230  'ARMY'  'COST  BY  FACILITY  TYPE  MC  COMMODITY'  '($000)' 

00285  'HORN  PERFORMANCE  CATEGORIES:  A  -  N', 

00290  TAB.  TITLE  B  R/A,  BREAK  AFTER  OHNROPER  SKIP  'FACILITY  TYPE  ' 
00300  OHNROPER  SKIP  C  TOTAL  OF  A  11  *  (K  9). 


FIGURE  A-22.  QUERY 7 9 


001?0  FIND  SERVICED  AND  CUSTOMER  CONTAINS  7A  AND  (COHHODTY  IS 
002C0  (A.B.C.D.E.F.G.H.K.L)  SET  COL  OF  A). 

00210  DEFINE  A  TABLE  (SETB  TOTAL.  FUNDED  UNFUNDED  TOTLCOST.  9) 

00220  B  TEXT  (AIRCRAFT  AUTO  VEHICLES  CONSTRUCT  COM/ELEC  MISSILES  SHIPS 
00230  UEAPH1UN  GENERAL  OTHER  TOTAL)  C  TEXT  (FUNDED  UNFUNDED  TOTAL).  COMPUTE 
00240  FUNDED  (CLABRP  ♦  CLABRO  ♦  MLABRP  ♦  MLABRO  +  FMATL  +  FQTHER  + 

C0250  FOVRHD  +  FGfcA  ♦  CONTRACT  +  FGFSERV  ♦  FMAINSPT)  UNFUfflED  (UMATLII 
0C260  ♦  (JMATLXC  +  UMATUK  ♦  UMATLXP  +  UOTHER  +  IBVRHD  +  IBM  ♦  GFHII  * 

00270  GFMXC  +  GFMMK  ♦  GFMXP  +  UGFSERV  *  UNAINSPT), 

00290  t€ADER  'FISCAL  YEAR  1979'  'ARMY' 

00290  'DIRECT  (7A)  COSTS  BY  PRIBRAM  ELEMENT  AND  COMMODITY'  '($000)',  TAB, 
00300  TITLE  8  R/A,  BREAK  AFTER  PROGRAM  SKIP  'PROGRAM  ELEMENT  ' 

00310  PROGRAM  SKIP  C  TOTAL  OF  A  11  *  (K  9). 


FIGURE  A- 23.  QUEST 2 


00200  FIND  ITEHNUNB=O00F010O  OR  ITEMNUW*O00F0100D  OR  ITET*U®=OO0F0100F 

00210  OR  ITEMNUHB=OOOF0100023A  OR  ITEHNUHB*OO0FO10OO238 

00220  OR  ITEMNUMB=OOOF010OO23C  OR  ITEMWM8=O00F010O023F 

00230  OR  ITE»M1B=OOOF0100023G  OR  ITE?HIB»OOOF0100023H  OR 

00231  ITEMNUM8*OOOF0100100, 

00240  TAB  ITEJtUB  ITEMNAME  PRICE  SYSTEM  MBS  HPC 
00250  FACILITY  PRODflNTY  TOTLCOST  HORKDAYS, 

00260  BREAK  BEFORE  HPC  'IN  HOflK  PERFORMANCE  CATEGORY:  '  HPC  SKIP  2, 
00270  HEADER  'DEPOT  MAINTENANCE  ON  TTC  F-100  ENGIfE  IN  FY  1979'  ' 
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FIGURE  A- 24.  QUEST5 


00190  FIND  SERVICE**  AND  FflCILITY=#*WSTON  AND  C0HM0DTY*€  AND  WPC=A* 

00200  AND  CATEGORY  EQ  1  AND  COMPONET  EQ  1  ANO  SYSTEM  ES 

00210  (AAK,AAM,AB»AC,AD,AG,AH,AI,AJ.AK,AL,AN,AQ«AP,AS,AT>AW»AX,AY, 

00220  G8»LA»LB,LC), 

00230  TAB  ITEJKANE  ITEfflMffi  PRODQNTY  PRICE  QNTREPYR  OTPREYR  QNTOTHYR, 

00240  BREAK  BEFORE  SYSTEM  TAB  '***  WPN  SYSTEM:  '  SYSTEM  SKIP  2 

00250  AFTER  SYSTEM  COMPUTE  PQ  (TOTAL  OF  PRODQNTY)  QFY  (TOTAL  OF  QNTREPYR) 

00260  QPFY  (TOTAL  OF  QNTPREYR)  QACFY  (TOTAL  OF  QNTOTHYR) 

00270  TAB  'FOR  WPN  SYSTEM*****  '  SYSTEM  '  AT  ANNISTON  IN  FY  1979:'  / 

00280  'TOTAL  PRODUCTION  QUANTITY  '  PQ  / 

00290  'TOTAL  PROD  ®TY  INDUCTED  IN  FY  79  '  QFY  / 

00300  'TOTAL  PROD  QNTY  INDUCTED  IN  FY  78  '  ^FY  / 

00310  'TOTAL  PROD  QNTY  INDUCTED  IN  YRS  PRIOR  TO  FY  78  '  QAOFY  SKIP  5, 

00330  TOTAL  'TOTAL  TANKS  PRODUCED  AT  ANNISTON  IN  FISCAL  YEAR  1979'  PRODQNTY. 


FIGURE  A- 25.  TAB8M0D 


00190  FIND  SERVICE**  AND  COHMOOTY*C  AND  WPC  L£  N 
00200  AM)  (COHPOTCT  IS  (1.2>3.4,5<6.7)  SET  COL  OF  2), 

00210  DEFIJC  Z  TABLE  (SETB  TOTAL>  TOTLCDST)  B  TEXT  (FRWC  ENGINE 
00220  ACOcCOMP  ELECLCOM  ARMAMENT  SPT*€QT  OTHER  TOTAL). 

00230  HEADER  'FISCAL  YEAR  1979:  ARMY' 

00240  'COmOOITY:  COMBAT  VEHICLES' 

00250  'TOTAL  COST  BY  WEAPON  SYSTEM'  'AW' 

00260  'WORK  BREAKDOWN  STRUCTURE  (MBS):  CUF3NENT  LEVEL' 

00270  '(WORK  PERFORMANCE  CATEGORIES  A  THRU  N  ONLY)' 

00280  '($000)',  TAB,  TITLE  B  R/Z,  BREAK  BEFORE  COMHQDTY 
00290  SKIP  2  'WPN  SYS  CODE'  SKIP  2 
00300  AFTER  SYSTEM  TAB  SYSTEM  5  TOTAL 
00310  OF  Z  10  *  (K  10). 


FIGURE  A-26.  XCESS2 


00190  FIND  SERVICE*A  AND  AVG  GT  PRICE  fM  DIFFP  GE  10000  AND  PRICE  NE  0, 

00200  COIfVTE  AVG  (TOTLCDST  /  PRODfflffY) 

00210  DIFFP  ((AVG  -  PRICE)  *  PRODQNTY), 

00220  HEADER  'ARMY  **  FY  1979'  'ITEMS  MAINTAINED  IN  EXCESS  OF  100X  OF  ' 

00230  'STANDARD  INVENTORY  PRICE'  'BY  FACILITY' 

00240  '(ZERO  PRICE  ITEMS  EXCLUDED  6  TOTAL  EXCESS  PER  ITEM  GREATER  THAN  I10K)' 
00241  '  ', 

00250  TAB  ITEJfWME  ITEMMJMB  23  DIFP  PRICE  AVG  PRODQNTY  WPC  105  WORKDAYS  111 
00260  SYSTEM  124, 

00270  TITLE 

00272  (ITEM  NAtE)  ITBUAME  (TOTAL  ITEM  EXCESS)  R/DIFFP 

00273  (STD  INV  PRICE)  R/PRICE 

00274  (ITEM  ID  NO.)  ITEJtUB 

00290  (AVG  MAINT  COST)  R/AVG  (PRODUCTION  QUANTITY)  S8 

00300  (WORK  ACC  CODE)  WPC  (AVERAGE  WORKDAYS)  113 

00310  (WPN  SYS  CODE)  SYSTEM, 

00320  BREAK  BEFORE  FACILITY  EJECT  '*♦*  '  FACILITY  '  **♦'  SKIP  2 
00330  ON  DIFFP  (D)  AFTER  FACILITY  CCffUTE  TOTLEXES  (TOTAL  OF  DIFFP) 

00340  TAB  SKIP  2  'TOTH.  EXCESS  *  ON  OLH  AT  '  FACILITY  TOTLEXES, 

00350  TOTAL  COTUTE  OTOT  (TOTAL  OF  DIFFP)  TAB 

00360  'TOTAL  BIO  TICKET  EXCESS  DOLLARS  SPENT  ON  DLM  IN  FY  1979'  OTOT. 


The  Multi-Data  Base  Query  DUPWRK2 


The  objective  of  the  DUPWRK2  query  was  to  identify  all  Air  Force  items, 
by  Federal  Stock  Number,  which  received  the  same  type  of  depot  maintenance  at 
two  or  more  facilities.  Every  job  order  record  contains  an  item  identifica¬ 
tion  number  field,  a  work  performance  category  (WPC)  field,  and  a  facility 
field  (containing  the  name  of  the  facility  where  the  item  was  repaired).  A 
query  was  needed  which  would  retrieve  a  job  order  record  from  the  data  base 
if,  and  only  if,  there  existed  at  least  one  other  record  in  the  data  base  with 
the  same  values  in  the  item  ID  number  and  WPC  fields,  but  a  different  value  in 
the  facility  field.  This  retrieval  was  accomplished  using  INQUIRE ' s  multi¬ 
data  base  capability. 

A  multi-data  base  consists  of  two  or  more  data  bases  which  have  been 
"linked"  together  by  field  values.  Creation  of  multi-data  bases  is  controlled 
with  the  OPEN  and  CONNECT  commands.  To  illustrate,  suppose  we  have  two  data 
bases,  DB1  and  DB2,  each  consisting  of  logical  records  containing  data  fields. 
DB1  and  DB2  may  each  be  a  copy  of  the  same  data  base,  which  is  the  case  for 
DUPWRK2.  The  CONNECT  command  links  the  DB1  records  to  the  DB2  records  based 
on  a  field  relationship.  In  DUPWRK2  the  CONNECT  command  was: 

CONNECT  DB1  TO  DB2  BY  ITEMNUMB. 

The  ITEMNUMB  field  contains  the  identification  number  of  the  item  receiving 
maintenance  under  the  job  order.  The  above  command  established  a  one-to-many 
link  between  each  record  in  DB1  and  the  set  of  records  in  DB2  which  have  the 
same  value  in  the  ITEMNUMB  field.  The  multi-data  base  established  in  DUPWRK2 
is  depicted  in  Figure  A-27 .  The  dots  in  the  figure  represent  the  logical 
records  in  DB1  and  DB2.  (Because  DB1  and  DB2  are  copies  of  the  same  data 
base,  the  dots  in  each  column  symbolize  exactly  the  same  set  of  records.) 
Each  record  in  DB1  is  linked  to  all  records  in  DB2  which  have  the  same  value 
in  the  ITEMNUMB  field.  In  the  figure,  records  1,  3,  and  5  have  identical 
ITEMNUMB  values.  Records  2  and  4  also  have  the  same  ITEMNUMB  value,  but  one 
different  from  that  in  records  1,  3,  and  5.  The  horizontal  links  occur  be¬ 
cause  every  record  in  DB1  is  always  linked  with  its  "copy"  in  DB2.  Record  6 
has  an  ITEMNUMB  value  that  does  not  occur  in  any  other  record.  The  multi-data 
base  that  is  created  is  a  "new"  data  base  with  its  own  set  of  records,  called 
group  records.  Every  directed  line  segment  corresponds  to  one  group  record. 
Each  group  record  has  a  "front"  half  containing  a  DB1  record,  and  a  "back" 
half  containing  a  DB2  record.  By  retrieving  only  those  group  records  in  which 
the  front  and  back  WPC  fields  matched,  but  the  facility  fields  differed,  it 
was  possible  to  isolate  the  particular  records  of  interest. 

When  attempting  a  multi-data  base  query,  users  must  keep  in  mind  the 
group  record  structure  just  described.  In  any  query,  the  user  extracts  a 
selected  set  of  records  and  manipulates  the  data  they  contain.  In  a  multi¬ 
data  base  query,  however,  those  records  are  now  group  records.  This  means 
that  the  manipulation  and  output  stages  in  the  query  must  be  carefully  formu¬ 
lated  to  avoid  logical  errors  and  double  counting.  In  these  stages,  INQUIRE 
requires  users  to  qualify  referenced  fields  by  naming  the  data  bases  they  come 
from.  The  user  can  then  generate  a  report  using  field  data  from  both  the 
"front"  and  "back"  halves  of  the  group  records.  In  the  DUPWRK2  query,  this 
made  it  possible  to  isolate  those  items  which  had  the  same  work  done  at  two  or 
more  facilities. 
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FIGURE  A-27 .  MULTI -DATA  BASE  STRUCTURE 

MULTI-DATA  BASE 


RECORO  NO. 


APPENDIX  B 


INSTRUCTIONS  FOR  LOADING 

The  process  of  installing  a  new  data  base  can  be  broken  down  into  three 
operations : 

tape  processing- 

storage  allocation 

loading. 

Each  operation  can,  in  turn,  be  segmented  into  several  specific  steps.  Figure 
B-l  lists  the  steps  of  each  operation  in  the  form  of  a  checklist  which  the 
user  can  follow  to  ensure  that  the  data  base  is  properly  installed.  Descrip¬ 
tions  of  the  corresponding  procedures  are  provided  in  the  following  para¬ 
graphs;  listings  for  the  members  in  KEN,  which  are  noted  in  the  descriptions, 
appear  at  the  end  of  the  Appendix. 

Tape  Processing 

The  depot  performance  data  are  submitted  by  the  Military  Services  to  the 
DoD  on  computer  tapes.  Before  these  tapes  can  be  used,  they  must  be  edited, 
translated,  and  cataloged. 

In  editing  the  tapes,  a  variety  of  factors  are  examined  to  isolate  re¬ 
cording  and  format  errors.  The  Logistics  Systems  Division  of  the  Air  Force 
Data  Services  Center  has  developed  a  program  to  identify  job  order  records 
that  do  not  conform  to  specifications.  Each  new  depot  performance  tape  re¬ 
ceived  by  the  AFDSC  is  automatically  edited  by  this  program.  Questions 
regarding  tape  editing  should  be  directed  to: 

Ms.  Priscilla  Puckett 
Logistics  Systems  Division 
Directorate  of  OSD  Systems 
Air  Force  Data  Services  Center 

The  output  of  the  edit  program  is  a  listing  of  rejected  records  with  erroneous 
characters  marked  by  asterisks  (Figure  B-2  illustrates  a  typical  listing).  To 
correct  faulty  data,  the  user  should  identify  needed  adjustments  by  comparing 
rejected  records  with  the  data  specification  in  DoD  7220. 29-H.  Requests  for 
corrected  data  should  then  be  submitted  to  the  Military  Services.  This  pro¬ 
cess  should  continue  until  the  edit  program  no  longer  identifies  significant 
inconsistencies . 

Since  the  tapes  are  developed  and  edited  on  Honeywell  equipment  and  the 
data  base  management  system  resides  on  an  IBM  machine,  the  final  corrected 
tapes  must  be  translated  from  Honeywell  Standard  Format  to  IBM  EBCDIC  Format. 
The  Logistics  Systems  Division  has  a  utility  program  which  performs  such 
translations.  Requests  for  this  service  should  be  addressed  to  Mr.  T.  H. 
Thoreson,  AFDSC.  For  consistency,  the  corrected  data  should  be  placed  on 
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FIGURE  B-l .  TRANSLATE  THE  TAPES  FROM  UNPACKED  TO  PACKED  FORMAT 


Action 


TAPE  PROCESSING 


Acquire  Annual  Tapes 
Submit  Tapes  for  Editing 
Analyze  Edit  Results 

Request  Service  Correction  of  Indicated 
Data 

Repeat  Edit  Cycle  tor  Corrected  Tapes 

Request  Translation  of  Tapes  to  IBM 
EBCIDIC 

Copy  Tapes  into  the  I3M  Tape  Library 

Translate  the  tapes  from  unpacked  to 
packed  format 

Extend  Retention  Period  of  Cataloged 
Tapes 


|  Initiation  jcompletion  < 
!  Date  j  Date 

“  i  : 


i 


i 

j 
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i 

I 


i 
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STORAGE  ALLOCATION 


Calculate  Space  for  Data,  Search,  and 
Index  Files 

Calculate  Remaining  Space  on  Each  Direct  [ 
Access  Volume 


Request  Additional  Storage  Space  if  i 

Necessary  \ 

I 

Determine  Disk  Location  of  Files 

i 

I 

DATA  BASE  LOADING  j 

Modify  Loader  Program  to  Reflect  Storage 
Requirements 

Execute  Loader  Program 

Correct  and  Insert  Rejected  Records 

Verify  that  All  Records  Were  Loaded 

Compute  and  Insert  the  TOTLCOS?  Field 


Notes 


i 


I 


I 

l 

l 

j 

i 


i 


Create  Backup  Copies 


i 


FIGURE  B-2 .  SAMPLE  EDIT  PROGRAM  OUTPUT 


T 


60000  series,  9  track,  1600  bpi  tape  with  a  block  size  of  10.  When  the  trans¬ 
lation  is  complete,  the  user  should  be  notified  of  the  reel  numbers  of  the  new 
tapes  and  the  total  number  of  records  reported  by  each  Service. 

Since  the  60000  series  tapes  are  only  used  in  transferring  data  from  one 
computer  system  to  another,  their  maximum  retention  period  is  30  days.  The 
depot  performance  data  may  be  retained  for  longer  periods  of  time  by  copying 
the  data  onto  85000  series  tapes,  which  can  be  cataloged  in  the  IBM  system 
library.  A  job  stream  for  tape  copying  and  cataloging  is  in  the  KEN  data  set 
under  the  member  name  COPY.  A  record  of  the  serial  numbers  of  the  new  tapes 
should  be  kept  for  future  reference. 

All  numeric  data  are  submitted  in  unpacked  form,  but  packed  data  requires 
significantly  less  storage  area.  Therefore,  the  tapes  should  be  translated 
from  unpacked  to  packed  format  prior  to  loading.  This  translation  can  be  ac¬ 
complished  by  the  PACK  job  stream  stored  in  the  KEN  data  set.  The  serial 
numbers  of  the  packed  data  tapes  should  be  recorded  and  copies  of  both  the 
packed  and  unpacked  data  tapes  should  be  retained  in  the  System  K  tape 
library. 

The  management  of  cataloged  system  tapes  is  the  responsibility  of  the 
creator  of  the  tapes.  New  tapes  are  kept  only  30  days  unless  the  user  extends 
their  life.  Tape  library  lists,  which  are  issued  weekly  by  AFDSC,  identify 
all  cataloged  tapes  by  area  code  (ASNM21  for  this  project)  and  specify  release 
dates.  The  user  can  release  tapes  from  the  library  or  lengthen  the  retention 
period  of  others  by  indicating  desired  actions  on  the  library  list.  Requests 
for  tape  lists  should  be  directed  to: 

Mr.  Larry  Robertson 
Directorate  of  OSD  Systems 
Air  Force  Data  Services  Center 


Storage  Allocation 

Since  the  number  of  reported  records  varies  from  one  fiscal  year  to 
the  next,  several  parameters  must  be  calculated  prior  to  loading  the  data 
base.  Figure  B-3  provides  a  worksheet  for  computing  those  parameters.  Inter¬ 
ested  readers  can  find  additional  information  on  the  role  of  the  parameters  in 
the  INQUIRE  Installations  and  Operations  Guide.  The  total  number  of  job  order 
records,  the  primary  input  to  the  computations,  should  be  provided  by  the 
AFDSC  following  tape  translation. 

The  data  space  and  search  space  parameters  indicate  the  number  of 
disk  tracks  required  by  the  data  and  search  files,  respectively.  The  re¬ 
mainder  of  the  data  base  is  comprised  of  the  index  file,  which  requires  60 
tracks.  Before  loading  the  data,  the  user  should  verify  that  the  required 
space  on  assigned  direct  access  volumes  is  available.  One  3330  disk  pack, 
(Volume  Serial  No.  0S2006)  is  assigned  to  this  project.  Additional  space  will 
be  required  to  support  future  fiscal  year  data  bases.  Using  the  FY  78  and  79 
data  bases  as  a  guide,  one  3330  disk  pack  will  accommodate  two  years  of  data. 
A  picture  of  the  available  space  on  a  disk  can  be  obtained  by  submitting  the 
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FIGURE  B-3.  DEPOT  PERFORMANCE  INQUIRE  LOADER  WORKSHEET 


Total  Number  of  Reported  Records  (All  Services)  =  _ 

Space  Allocation  for  Key  Work  File  =  7  x  (#  Reported  Records)/! ,000 


Block  Size  for  Sort  Work  File  =  6  x  (Space  Allocation  for  Key  Work  File) 


Total  Data  Size  =  311  x  (#  Reported  Records)  +  10,000  = 

Data  Space  =  (Total  Data  Size)/7,276  =  _ 

Search  Space  =  (#  Reported  Records )/91  =  _ 


MAP  job  stream  stored  in  the  KEN  data  set.  Figure  B-4  displays  the  output  of 
MAP  for  the  OS2006  pack.  Requests  for  additional  space  should  be  addressed 
to: 

Director 

Automated  Systems  Office 

Office  of  the  Assistant  Secretary  of  Defense 

(Manpower,  Reserve  Affairs,  and  Logistics) 

Loading 

The  edited  depot  performance  tapes  are  loaded  into  a  data  base  by  the 
INQUIRE  loader  program,  which  must  be  modified  to  reflect  annual  changes.  The 
job  stream  for  this  program  is  stored  in  the  KEN  data  set  under  the  member 
name  LOAD.  The  required  parameters  for  LOAD  can  be  calculated  using  the 
Loader  Worksheet  (Figure  B-3).  The  necessary  Volume  Serial  numbers  will  be 
assigned  by  AFDSC. 

After  loading  the  new  data  base,  it  should  be  validated  and  enhanced 
prior  to  its  use.  To  ensure  that  all  data  were  loaded,  the  logical  record 
count,  produced  as  an  output  of  the  loader  program,  should  be  compared  to  the 
number  of  records  reported  by  the  AFDSC  following  tape  translation.  Dis¬ 
crepancies  in  these  figures  may  be  explained  by  records  which  do  not  conform 
to  the  data  definition  (i.e.,  field  definition  in  the  loader  program).  Such 
records  will  be  listed  in  the  loader  program  output.  Each  rejected  record  may 
be  corrected  and  added  to  the  data  base  using  the  INQUIRE  ADD  BATCH  command, 
as  described  in  Chapter  X  of  the  INQUIRE  User  Language  Tutorial. 

Finally,  to  improve  computational  efficiency,  a  total  cost  field  should 
be  added  to  each  record.  The  job  stream  T0TLC0ST  in  the  KEN  data  set  will 
compute  and  insert  the  TOTLCOST  field  into  each  record  in  the  data  base.  When 
these  developmental  steps  are  completed,  the  new  data  base  is  ready  for  use. 


FIGURE  B-4.  MAP  OF  QS2006  DISK  PACK 
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CONTENTS  ON  VDU*e*S£R=OS2006  UNIT'187 
DATE  DATE 


DIRS.  ELKS 

DATA  SET  WE 

BLOCKS  USES 

vroc 

EXT— FIRST — LAST-LENGTH 
01  OOOOl  00018  00018 


CREATES  PURUS 


FILE 

TYPE 


FREE  SPACE 

EXT— FIRST — LAST-LENGTH 
OS2001U.H306D. COST ACTS. ITS. BATA 

DSOROOA  RECPK  LRECL=6444 
9LXS12£*6444  30  «X0CATI0N*2 
EIT— FIRST — LAST-LENGTH 
01  0001 9  02S87  0280? 

02  06422  04927  00504 
0S2001U.N30S0.CCSTAC78. ITS. INDEX 
3SCROIS  RECFIWB  LRECL*43 
BLKSIZE-4104  30  ALLOCATION) 
En-FIRST— UST-LENGTH 
01  02888  0322?  00342 
OS2001U.N3030.COSTAC78. ITS. SEARCH 
3S0R6*0A  REOTI=F  U»X=4444 
BLKSIIE*4444  2W  «LI0CATt0N>2 
EXT— FIRST — LAST-LENGTH 
01  04087  04098  00012 
02  04928  07475  00748 
0S20O1U.K308D.COSTAC79. ITS. DATA 

DSORMM  RECFlff  LRSL=4400 
BUCS17E*4400  2ND  ALLOCATION*IO 
En-FIRST — LAST-LENGTH 
01  03230  05480  02251 
0S2001U.N3080.C0STAC79. ITS. INDEX 


80193  00000 


80200  00000 


90193  00000 


80184  00000 


90200  00000 


OSORG'IS  RECFfWB  LRECL*43 
BUCSIZ£*41Q6  30  ALLOCATION) 

EXT— FIRST— LAST-LENBTH 
01  04099  04421  00323 

0S2OO1U.K3O3D.C0STAC79. ITS. SEARCH  90184  00000 

DSCROOA  RECRW  UEa-4400 

BLKS1Z£*6400  30  ALLOCATIONIO 
EIT— FIRST — LAST -LENGTH 
Ot  03481  04084  00404 
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DIR. 


INDX 


DIR. 


DIR. 


INBX 


DIR. 


FIUE  VOL.  TOTAL 

EXTENTS  SERIAL  SED.  SECURITY  ALLOC 

18 

0 

02  QS2006  01  NO  337S 


Ot  QS2004  01  NO  342 


02  QS2006  01  NO  740 


01  032004  01  NO  2251 


01  0S20O6  01  NO  323 


01  OS2004  01  NO  604 


UPDATED  07/03/78 


CONTENTS  ON  VCUJHE*SEJWS2006 


FIRST  TRACK 

LAST  TRACK 

LENGTH 

EXTENT 

OOOOl 

00018 

00018 

01 

00019 

02387 

02349 

01 

02888 

0322? 

00342 

01 

03230 

05480 

02251 

01 

05481 

04034 

00404 

01 

04067 

04098 

00012 

01 

04099 

04421 

00323 

01 

04422 

04927 

00504 

02 

04928 

07475 

00748 

02 

UNIT«IS7 

DATA  SET  NAHE 

VTX 

0S20Q1U. N3080.  C0STAC78. IT5. DATA 
OS2001U.N3060.C8STAC78. ITS, INDEX 
0S20O1U.N3O8D.COSTAC79. ITS. DATA 
OS2001U.  N309D. C0STAC79. ITS. SEARCH 
QS2001U.  N30SD.  C0STAC78. ITS. SEARCH 
OS2001U.N308D.COSTAC79. ITS. INDEX 
0S200IU.  N308S.  COST ACTS.  ITS.  DATA 
3S2001U.  KJ08D. C0STAC78. ITS.  SEARCH 


PACE 

TRACKS 

USED 

I 

3373 

342 

740 

2231 

324 

404 

PACE 


As  noted  earlier,  the  data  bases  for  FY  78  and  79  now  fully  occupy  one 
(removable)  3330  disk  pack,  and  additional  3330  packs  will  be  required  for  the 
FY  80  data  and  beyond.  It  is  suggested  that  after  loading  a  new  data  base 
onto  a  disk  pack  each  year,  a  copy  of  the  previous  year's  data  base  also  be 
placed  on  that  pack.  (For  example,  after  loading  the  FY  80  data  base  onto  a 
new  pack,  place  a  copy  of  the  FY  79  data  base  on  the  pack  as  well.)  This  will 
provide  a  disk  pack  containing  the  two  most  recent  year's  worth  of  data  for 
simultaneous  on-line  processing.  This  will  reduce  the  number  of  disk  mounts 
and  demounts  that  the  System  K  operator  will  have  to  perform,  and  will  also 
mean  that  a  back-up  copy  of  the  previous  year's  data  base  will  exist  on  disk. 

Occasionally,  storage  disks  are  damaged,  destroying  the  resident  data. 
As  a  precautionary  measure,  a  back-up  tape  copy  of  each  new  data  base  should 
be  created.  The  job  stream  BACKUP  in  the  KEN  data  set  provides  a  program  for 
copying  INQUIRE  files  onto  high  density  tape.  The  member  RESTORE  in  the  KEN 
data  set  should  be  used  to  restore  a  data  base  from  a  back-up  tape. 

Listings  for  Programs  Used  in  the  Annual  Loading  Process 

In  addition  to  the  LOAD  program,  the  other  routines  in  the  KEN  data  set 
used  in  the  annual  loading  process  are  COPY,  PACK,  MAP,  TOTLCOST,  BACKUP,  and 
RESTORE.  Figures  B-5  through  B-ll  display  the  job  streams  for  each  of  these 
routines  as  they  currently  exist  in  the  KEN  data  set.  (Blank  spaces  have  been 
left  in  the  LOAD  listing  to  indicate  those  places  where  users  must  insert 
parameters.  A  listing  of  the  LOAD  job  stream  with  example  parameters  appears 
in  Figure  3-5  in  Section  3.3.3,  Sample  Inputs.)  The  MAP  routine  has  been 
executed  on  System  K;  the  others  (including  LOAD)  were  last  executed  on  System 
I,  System  K's  predecessor,  and  may  require  some  adjustment  as  a  result. 


FIGURE  B-5.  COPY 


00010  //OS20CW  JOS  (0S20iN308D»  15U)  >HA(l<S-RB1OTEiN0TIR54)S2OQW»CLA$S=Uf 
00020  //  HSGCLASS*H 

00030  /*SETUP  ««**  (=  SIX  DIGIT  REEL  NO.  FROM  ffBSC) 

00040  //C0PYTAPE  EXEC  PG«*IEBGE)€R,REGIQN*80K 
00050  //SYSPRINT  DD  SYS0UT=H 
00060  //SYSIM  DO  DUMV 

00070  //3YSUT1  DD  UNIT=TAPE9,DISP=<01J.1<EEP),V0L=SER=»««<*SA1€  LINE  30) 
00075  //  DC8a(RECFN*fB.LRECL=360i8LXSIZE=3600)iLABEL=<liNL) 

00090  //SYSUI2  DD  DSNAf£=AS*t21U.  N309D.FYM0ATA, UNIT=TAPE6,0ISP=< ,  CATLG) , 
00100  //  DCB»  ( RECFNsfBt  LR£CLS360»  BLXSI ZE=3600  >  DEN*4 )  ?  LABEL*  < » SL) 

00110  // 

END  OF  DATA 


FIGURE  B-6.  PACK 


00010  //0S20OH  JOS  <0S20.K3080,lU.^).H^SHSn0TE.N0TIFY=OS20CMH» 

00020  //  CLASS*U,NSGCLASS»H 

00040  //PACK  EXEC  POt»IEBCENER.REGI0W=80K 

00050  //SYSPRINT  DO  SYSCUT*H 

00060  //SYSUT1  DO  DS^=AS«K21U,l<308D.AF79,ijNIT=TAre6,,/a=SER=w«», 
00061  (**»«aR£EL  MO  FRCH  AFDSC) 

00070  //  DISP*(0LD, KEEP, KEEP), XB»<RECFn*fB,LRE(l=360»BUSlZE*3600) 
00060  //SYSUT2  90  DS)W€=AS)lt21U.N3080.PKIINAfE.DISP=(NEW>CATLG,I)EL£TE)> 
00081  !PKDNAHE*NAME  CHOSEN  FOR  PKD  TAPE) 

00090  //  UNIT=TAPE6,DCB*!R£CFn*fB,LREa=259,BLKSIZE=2590,DEN=4) 


OOIOO  //SYSIN  DO  * 

00110  GENERATE  HAXFLDS*50 

00115  LABELS  DATA=MO 

00120  RECORD  FIELD*<64,1,.1>,  C 

00125  FIELD=!10,65,ZP,65),  C 

00130  FIELD=<12,75,,71),  C 

00135  FIELD»<8,87,ZP,83>,FIELD*<8,95,ZP,88>.  C 

00140  FIELD*!8,103,ZP,93),FIELD*!8.111,ZP,98),  C 


00145  FIELD*<8, 119, ZP, 103) ,FIELD*!3, 127, ZP, 106) , 
00150  FIELDS,  135,  ZP,  113)  ,FIELD*<8, 143,  ZP,  118) , 
00155  FIELD=!8, 151 , ZP, 123)  ,FIHJ)*<8. 159, ZP, 128), 
00160  FIEUM8, 167,  ZP,  133)  ,FIELIH8, 175,  ZP,  138) , 
00165  FIELDS,  183,  ZP,  143) ,  FIELD*!8, 191 ,  ZP,  148) , 
00170  FIELD»(8,199,ZP,i53),FlELD»(8,207,ZP,158), 
00175  FIELD9!  8, 215,  ZP,  163) ,  FIELIM 8, 223,  ZP,  1 68 ) , 
00180  FIELD*! 8, 231 , ZP, 173), FIELD*! 8, 239, ZP, 178) , 
00185  FIELD*(8, 247,  ZP,  183) ,  FIEUW8, 2 55,  ZP,  188) , 


00190  FIELD=<8,263,ZP,193),FIELD*<8,271,ZP.198),  C 

00195  FiaD*(8,279,ZP,203),FIELO=!8,287,ZP.206),  C 

00200  FIEUNM8.295,  ZP,213),FIELD*<8,303,  ZP,218),  C 

00205  FIELD*!8,311,ZP,223),FIEUM8,319,,228),  C 

00210  FIELD*!8,327,ZP,236),FIEUM8,335,ZP,241),  C 

00220  FIELD*<8,343,ZP>246),FIELD*(4i35l,ZP,251),  C 

00225  FIELO*<6,355,,254) 

00230  /» 

00235  // 

END  OF  DATA 


ooo  o  o  o  o  o  o 


FIGURE  B-7 .  LOAD 


»oio  inxa  jm  ioBO.KMB.iai.io.7oi.  -oodt.ienpr^BO  . 

00015  1/  CUM.I 

aoa 

mm 

00020  //jam  m  nMm.i wnc.UKUi'OxsMHt 

man  u\m  exec  i)aiM.«eNX20oiUtFmMaoa,urpiifC<aTic  .itbn  . 

ooooo  n  mtmc-occiw  ■on£)*a,jB>-B,utm*3.Gm3‘  . 

00090  if  »TKE» 

• 

S8CV0L*  .IMZVQL*  ■  BEDX0N  OOOK. 

coo40  //  o>ma^a»Tt.oiiiECT/ , sx*m+  ’xmi.cmTt. »«wy , imsppoo. 

ooou  itMw  «o.(F  nrana  ea».»  u*  *o  imi 

00070  if  M.S8C9FC* 

.0ATSPC*  .SKOLK>37.S80SPC>7l4i.SMML>0S200  . 

ooooo  //  B9m«-jao.»na^eoe  .t»iaT>3oo.MrroE»*o 

000(1  //0AT.  HOI  SI  00  0SME200IU.KMB.AUn.a>IAS7)A«l.USIS*an. 

00082  //  UEI-257).an»3mwQL-SONB200  .  0ISPxet.CA7U.AODT 

00083  if  SPACE*  7292,  (200.  U.fcSi 

00100  //WT.OATAFIl.  00  09MB2001U.iaMD.aBTAC  .IT. DATA. 

00110  //  UWTX3330.  >.UL* PRIVATE,  AETNA.  SBWQS200  .0S200  ]). 

00120  //  oiv»iei.cATU.(anE>.sMZ>(72T:,imo.20oi.ALSEi. 

00130  //  I>l*ECF**,DS*8-0».iJ3IZ£«7??2) 

00140  //OAT.1S100  a  MAfC  AMC1U.KMB.  .UMT-TAAe*. 

00190  //  «.««■ 

.  0»«KEFI*M.  BJ31S-29)«.UBL<2S>.0BM1 .0IVMU 

00195  // 

00  OMlAlCiABIBlU.IOOB.  .JUT" TAPE*. 

0015ft  //  V0L-SBN 

,0»(ICCFI*«l.guSZZI-25f(.ljea.«».0BMI.SlMAU 

00157  // 

od  a 

MW  A— C1U.J0080.  *  UNIT-TAPE*. 

0019B  //  va-» 

.  09M  AECFM^S*  AJSI2Ea2990*lJBL"239(  QBX4 ) .  0ISPXLD 

00199  (140-198  AKME  REBUKE  MAKS  ft  S0UAUOC.  R*  POT  SEKVICE  TAPS) 

001*0  /70AT.STS1M  a  ♦ 

00t70«cm  F 

1 

001(0  OMTIB  F 

1 

00190  FY  FPi  2 

00200  pwmT  F 

6 

08210  KOMfl  F 

5 

SPWE.7  1 

00220  SBIVICE  FPK  1 

3PM0QB.T  * 

08230  FACILITY  FFK  14 

00240  IM/0UTUS  F 

1 

00290  o mm  f 

1 

00260  RFTQFAC  * 

5 

00270  rraout  fy«  13 

i»2m  ii  mot  f 

20 

8 

002JO  ABICE  F 

* 

00300  STSTBI  FAB  « 

xmo  MB  F 

3 

00320  cotwrr  m  1 

9M  1 

00330  CAIBOBT  F 

1 

9* 

003*0  awoer  f 

1 

SMB  3 

00390  FT*  3 

003*0  OBTOKK  F 

2 

00370  OAIAB  A 

5 

00380  ajfwm  p 

5 

00390  qjmro  P 

5 

00408  OtfMMt  P 

S 

00410  IU89  P 

S 

00420  PUIVW  P 

3 

00430  HJ8K0  P 

5 

00440  IUMM  P 

3 

00490  P»tl  P 

5 

004*0  WA1UI  P 

5 

00470  UWUC  P 

3 

00400  UM1UK  P 

5 

00490  UHTUP  P 

3 

00300  ft mot  P 

5 

ocsio  ana  p 

3 

00520  FW8C  p 

3 

00530  UOUOC  P 

3 

00540  FBWk  P 

K 

00990  ua*  P 

3 

008*0  CWTBACT  A 

3 

00570  SMII  A 

3 

00980  »WC  P 

5 

00890  SFffft  P 

3 

00*00  MBA  A 

3 

00*10  mw  A 

3 

00*20  unav  a 

5 

00*30  FBAflflAT  A 

3 

00*40  imno'T  p 

3 

00*90  pwporr  p 

3 

oo**«  mam « 

1 

00*70  BITKflW  P 

3 

00*80  p 

3 

00*90  mrwn  p 

3 

ooToo  wmws  p 

3 

00710  UK  N 

* 

00720  M 

0(730  It 

00740  // 

M  OF  OAT* 

B-9 


FIGURE  B-8.  MAP 


00010  //0S20OH  JOB  (0S20,N308D,  15U)>HANKSH©1QTE.HCITIFY=OS2GCHHiClASS=P, 
00020  //  rtSfl&AS$=H 

00040  //MAP03  EXEC  DISiOMP,PK*OS2004,UNIT=3330 
00045  //DISXNAP.3YSPRINT  DO  SYS0UT*H 
00050  // 

END  OF  DATA 


FIGURE  B-9.  TOTLCOST 


00010  //0S20CHH  JOB  (0S201N308D.15U.6O)>HAM(SH)E)10TE,N0TIFY=OS20CHH1 

00020  //  CLASS=S,HSGCLASS=H 

00030  //JOBLIB  DD  DSN^l  JNQUIRE.LI11<L1B,DISP=SHR 

00040  //INGBATCH  EXEC  PGH=INQUIRE1,REGICN»800K, 

00050  //  PAWt»y  /H,  SW»  SH=150000,  T=60K»  P*55,  L=72' 

00040  //REPORT  DO  SYSOJT=H 

00070  //SYSPRINT  DD  SYSOUT=H 

00080  //SORTNK  DD  UNIT=SYSDA, SPACED CYL.  (10,5)) 

00090  //SYSLIB  DD  DUMMY 
OOIOO  //PUDUMP  DD  SYSOUT=H 

00110  //DATAFIL  DO  DSN=OS2001U.N308D.COSTAC  .DATA,DISP=SHR 
00120  //INXFIL  DO  0SJWJS2OO1U.N3O8D.COSTAC  .  INDEX, DISP*SHR 
00130  //SRCHF1L  IS)  DSN=0S2001U.N308D.C0STAC  .  SEARCH,  DISP=S« 
00140  //SROVFIL  DO  DUMMY 
00150  //SYSIN  DD  * 

00140  OPTION  ENOMINUS  3. 

00170  . 

00180  REPLACE  TOTLCOST  BY  (TOTAL)  IN  FY=  ,COfFUTE  TOTAL  FORMAT  (I  3) 
00190  (CLABRP  +  CLABRO  +  MLABRP  +  MLABRO  +  FMATL  ♦  UHATLII  ♦  LMATIXC 
00200  ♦  UMATUK  *  UHATLXP  *  POTHER  +  UOTWR  ♦  FOVRHD  ♦  UOVRHD  ♦ 

00210  FOMA  +  UGUA  ♦  CONTRACT  +  GFHII  ♦  GFMXC  +  GFMHK  +  GFMXP  ♦ 
00220  FGFSERV  ♦  UGFSERV  ♦  FNAINSPT  +  UMAINSPT). 

00320  /# 

ENO  OF  DATA 


FIGURE  B-10.  BACKUP 


00010  //OS20CHH  JOB  (0S20«M306D.  1SU)  ^fWNKS-fi£310TE,NOTIPr=OS20CHH» 

00020  //  CLASS=R. NSGCLASS-H 

00030  //HUM*  EXEC  IN6DUHP»AREA^)S2001U.PR0JsN308D,EXTNAHEsC0STAC79» 

00040  //  INTN#€=ACCTNG79,  ITERM,  ITER0P=4 
00050  //DWEALL.SROVFIL  DD  DUfflY 

00060  //DUHPflLL.  IMAGFIL  DO  DSlN«liGlU.N3^0.C0STAC79.IT4.1l1AGE, 

00070  //  DISP*(,CATLG,0EL£TE)»UNIT»TAPE6»LABELs<l,SL) 

00075  (NOTES  .IT*.  . ITER, ITEROP  REFER  TO  ITERATION  PART  OF  DATA  SET  NAflES) 
00076  <«.S0.  OUTPUT  OF  THIS  PGR  HILL  INCLUDE  A  RESTORE  CONTROL  CARD  ID  STRING 
00077  UH1CH  SHOULD  BE  RETAINED  FOR  USE  IN  THE  'RESTORE'  PGR,  SHOULD  A 

00078  RESTORE  BE  REQUIRED. ) 

00080  // 

END  OF  DATA 


FIGURE  B— 11.  RESTORE 


00010  //0S20CHH  JOB  (0S20,  K308D,  15U) ,  (mS-AEJt)TE,N0TIFY=OS2OC»(, 

00020  //  CLASS-R,!1S6CLASS-H 

00040  //RESTORE  EXEC  INGRESTR .  «EA=OS2O0 1 U,  PR0J=N308D,  ETTNARE=C0STAC79, 

00050  //  INTNARE=ACCTNG79, ITER-4, ITEROP-4,  INGPASR*'RESTGfl£»0VHRI7E' 

00055  //RSTORALL.DATAFIL  DD  DSfMS2001U.N308D.COSTAC79.IT4.3ATA, 

00056  //  UNIT*<2314, 2), VOL=(PRIVATEi RETAIN, SER3<0S2004,0S20051), 

00057  //  DISP»<NEH,CATLG, DELETE), SPACE-<7292, (3950, 300), RLSE), 

00058  //  OCB=<RECFR-F,DSOR3*DA,BLXSI2E*7292) 

00060  //RSTORALL.  IMAGFIL  DD  DSfMSNK21U.N308D.C0STAC79.IT4.  IMAGE,  DISP=OLD 
00069  //SYSIN  DD  * 

00070  RESTORE  ACCTNG79800424115332086213 
00080  I* 

00081  (NOTES:  THIS  PGR  HAS  USED  TO  RESTORE  FROM  TAPE  TO  A  2314  DISK  PACK. 
00082  THE  TAPE  HAS  THE  BACKUP  COPY  OF  A  2314  PACK.  TO  RESTORE  TO  A  3330  PACK 

00083  HILL  REQUIRE  ADJSTMTS  TO  PROGRAR.  Tl€  ID  STRING  IN  LINE  70 

00084  HAS  PRODUCED  IN  THE  OUTPUT  OF  'BACKUP'  WHEN  THE  BACKUP  TAPE  HAS 

00085  HADE.  TO  USE  THIS  RESTORE  PGR,  TIE  USER  HILL  NEED  THAT  NUR9ER 

00086  FROH  THE  OUTPUT  OF  THE  'BACKUP'  PGR  »€N  THE  BACKUP  TAPE  HAS  RACE. ) 

EM)  OF  DATA 


APPENDIX  C 


OTHER  DATA  BASE  MAINTENANCE 


In  addition  to  the  annual  loading  process,  the  Depot  Performance  data 
base  may  require  other  types  of  maintenance.  As  an  aid  to  users,  this  Ap¬ 
pendix  lists  11  routines  that  have  been  used  for  data  base  maintenance  tasks. 
The  list  below  provides  a  brief  description  of  each  routine  and  gives  its 
member  name  in  KEN.  An  asterisk  indicates  the  routine  uses  a  cataloged 
INQUIRE  procedure  on  System  K.  The  AFDSC  INQUIRE  DBMS  User's  Handbook  des¬ 
cribes  these  procedures. 

1.  To  copy  a  partitioned  data  set  (PDS)  from  disk  to  tape. 

KEN  Member  Name:  COPYPDS 

2. *  Used  to  unload  the  INQUIRE  index  file  for  the  FY  78  data  base  from 

disk  to  tape. 

KEN  Member  Name:  CYX3078 

3. *  Used  to  unload  the  INQUIRE  index  file  for  the  FY  79  data  base  from 

disk  to  tape. 

KEN  Member  Name:  CYX3079 

4. *  Used  to  copy  INQUIRE  data  and  search  files  from  a  2314  disk  pack  to 

a  3330  disk  pack. 

KEN  Member  Name:  CY3330 

5.  Test  program  to  demonstrate  how  to  compile  and  link  edit  a  FORTRAN 
program. 

KEN  Member  Name:  FORTRAN 

6.  Test  program  to  demonstrate  how  to  compile,  link  edit,  and  execute  a 
FORTRAN  program. 

KEN  Member  Name:  FORTRAN 1 

7. *  To  test  the  Field  Definition  Table  of  an  INQUIRE  data  base  for 

proper  syntax. 

KEN  Member  Name:  NOGO 

8.  To  print  specified  records  from  a  tape. 

KEN  Member  Name:  PRPNCH 

9.  To  remove  all  data  sets  from  a  disk  pack.  (Use  with  caution.) 
KEN  Member  Name:  SCRATCH 

10.  To  remove  a  specific  data  set  from  a  disk  pack. 

KEN  Member  Name:  SCRDS 

11.  To  print  the  label  of  a  tape  (so  the  operator  can  check  the  tape's 
characteristics) . 

KEN  Member  Name:  VERIFY 


C-l 


Figures  C-l  through  C  —  1 1  display  listings  for  the  above  job  streams.  Due 
to  the  transition  from  System  I  (IBM  360/75)  to  System  K  (IBM  3032),  some 
additional  adjustments  to  adapt  these  programs  may  be  necessary. 

FIGURE  C-l.  COPYFDS 


00010  //OS20CHH  JOS  ( 0S20,  N306D*  1 5U ) ,  }«NKS-«E?I07E ^  N0TIFY=»JS20CHH. 

00020  //  CLASSES,  I1SGCLAS$=H 

00040  //BACKUP  EXEC  ™0SFDU,DISK=0S200l,DSN='ASNH21^ 

00041  CDWENT:  OS2001  SHOULD  BE  REPLACED  BY  V0LSER  THE  PUBLIC  DISKPACK 
00042  IN  LINE  40  IJIOIATELY  ABOVE 

00050  //SYSIN  DD  * 

00060  D1W*  DSN=OS2001U.  N3C6D.  KEN 
00070  /* 

END  OF  DATA 


FIGURE  C-2.  CYX3078 


00010  //0S20Cm  JOB  (0S20.N308D.  15U)  >HANKS-RENOTE.NOTIFY=OS20CHH. 
00020  //  CLASS=R.NS8CLASS=H 

00035  //CYX3078  EXEC  INQXUNL. INXREC=43.AR£A=OS2001U,PROJ=N308D, 
00040  //  ITER=3.£XTNAHE=C0STAC78 
00090  /* 

END  OF  DATA 


FIGURE  C-3.  CYX3079 


00010  //OS20CHH  JOB  (0S20,N308D,  15U).(mS-RENOTE.NOTIFY=OS20CJ«J 
00020  //  <XAS$=fl,«$GCLASS=H 

00035  //CYX3079  EXEC  INQXUNL,  INXRECM3,AREA*OS2001U,PR0J=N308D, 

00040  //  EXTNW€=COST  AC79, 1  TERM,  ITEROP*5,0UTV0L=OS2OO6 

00050  //  INXUNLD.  INXFILU  DO  DSN=4AREA. .  MTO. .  lEXTNAft. .  ITilTEROP. .  IMDEX , 

00055  //  DIS^lNENiCATLGi DELETE). VOL»SERsW!!UTVOLilHIT=3330i 

00060  //  K8=<RECFTW.LREa=4.INXREC.BLKSIZE*«.INXREC.O,DSORG«IS, 

00063  //  RKP»20,0PTCD*YLRI.CYCFL=i,KEYL£N»23). 

00070  //  SPACE*(CYL. (25»2).RLSE) 

00090  /♦ 

EM)  OF  DATA 


FIGURE  C-4  CY3330 


00010  //0S20QH  JOB  !0S20.W0OT,15U).HAM(SHO0TE.N(rriR>0S20a«, 
00020  //  CLASSY,  nSCCLASS=H 

00040  //CY3330  EXEC  INCCOPY,AREA=OS2001U,F*^^  ITER=3, 

00045  //  DATErr=2,SRC£rr=2,SAOErr=2. 

00070  //  EXTNAM£<0STAC78,  ITEROPB5,AREAQP=OS2001U,PROJOP"N308D, 

00080  //  XNA*OP=COSTAC78,  SK=8,  DATSPO4750, 0ATBUC=4444, 

00090  //  SRCSPC= 1 520i $RCBLK=4444 . SR08LX=4444, ALL VQLsOS2004, 

00100  //  DSJCn?E=333O.0ISRsCATlG.R£LPftRttr'fiy.;MOVFIL/,OUT=AiSROSPCM4 
00102  //COPY.DATANEW  DD  SPACC3(ScOATBUC>  <LDATSPC.ltBATEXT),RLSE) 

00104  //COPY.SRCHNEH  DD  SPACED  fcSRCSLK, (iSRCSPC,<rSRCEXT),RLSE) 

00110  //COPY.SROVNEW  DD  DUMMY, DC2»BLXSI2E=30 
00120  //COPY.  OATAFIL  DD  DS#=4MEA. .  iPROJ. .  l£XTNAf€. . IT&ITER. .  DATA, 
00130  //  DISP=SH? 

00140  //COPY.SROVFIL  DD  DUMMY 
00150  /♦ 

BID  OF  DATA 


FIGURE  05.  FORTRAN 


00010  //OS20GH  JOB  (0S20.N308D,15U.40),HANKS-^O«}TE,M0TIR>0S20CHH. 

00020  //  CLASS»P,MSGClASS=H,MSGLEVas<l,l) 

00040  //FORTRAN  EXEC  FORTXCL 
00050  //FORT.SYSIN  DD  » 

00040  TOTALS. 

00070  HRITE(4.10) 

00080  10  FORHATUX, 'INPUT  FIRST  VALUE  -  INCLUDE  DECIMAL') 

00090  READ(5.20)  A 

00100  20  FORMAT(F10.2) 

00110  WITE14.30) 

00120  30  FORHATdX, 'INPUT  SECOND  VALUE  -  INCLUDE  DECIMAL') 

00130  READ(5.20)  S 

00131  TOTAL*A+fi 

00132  HRITE(6,40)  A, 0, TOTAL 

00133  40  FORMAT! lXiF10.2,2X, '+,,2X,F10.2»2X»'*',F10.2) 

00134  STOP 

00135  END 

00140  /♦ 

00150  //LXED.SYSLMOD  DD  DS1MS200 1U. N3080. LOADMOD, UNIT*2314, V0L*S£R*OS2O0 1 , 
00140  //  SPACEMCYl, <2,1, 3)), 01SP»<NEW,CATLG, DELETE) 

00190  // 


FIGURE  C-6.  FORTRAN 1 


00010  //OS20CW  JOB  (0S20,M308Daa),Httl<S-fi£N0TE.(«TIFY*0S20O*l. 

00020  //  CLASS=P,nSGCLASS*H 
00040  //FORTRAN  EXEC  FORTXCLG 
00050  //FORT.SYSIN  IB  * 

00060  TOTAL*). 

00090  R£A0(5*20)  A 

00100  20  FORHAT(F10.2) 

00130  REMH5.20)  B 

00131  T0TAL*A+6 

00132  URITE(6,40>  A, B, TOTAL 

00133  40  FORHAT(1X,F10.2,2X,F10.2.2X,F10.2> 

00134  STOP 

00135  END 

00140  /* 

00150  //G0.FT05F001  00  OSK=OS2001U.N3080. IK3UT,DISP=SHR 

00160  //G0.FT06F001  DO  0SN=OS2001U.N308D.0UTm>DISP=(NEU,CATLG.DEL£TE), 

00170  //  UNIT='3330-l/jWOL»SERa******iDCBs<LRECL=80»RECIlW:)»SPACE*<TFK. (1,1)) 
00190  // 

END  OF  DATA 


00010  //0S20CH4  J08  (0S20.N308O. l3U.?0.70KH»*CS-fle»JTE.WnFYR)S20QAt. 

00013  //  OASSRWISttLASS** 

00030  //CtHX  EEC  I)«000.»£Y*23,i8«»CC7M674 

00040  //SYSIM  DO  1 

00170  sstype  f 

t 

00180  OUWTER  F 

I 

00190  FT  FPR  2 

00200  PTOGB.T  F 

6 

00210  PROGRAM  F 

5 

SPROGELT  1 

00220  SERVICE  FPR  1 

SPROGELT  6 

00230  FACILITY  m  14 

00240  Ut/OUTUB  F 

1 

00230  0HMFS1  F 

1 

00260  tmetc  F 

3 

00270  1TBMM  FPR  13 

00280  I7EWAIS  F 

20  3 

00290  PRICE  X 

10 

00300  SYSTEM  FPR  4 

00310  MBS  F 

3 

00320  careen  fpm  i 

SMBS  1 

00330  CATEOTY  F 

1 

SMBS  2 

00340  earner  f 

1 

SUBS  3 

00330  wc  m  3 

00360  CUSTBO  F 

2 

00370  CLAMP  P 

5 

00380  CLAMPM  P 

5 

00990  aura  p 

5 

00400  OMM  P 

3 

00410  ItAMP  P 

S 

00420  ILAMHft  P 

5 

00430  ruem  p 

3 

00440  ILAMOHt  P 

5 

00430  FMATL  P 

5 

00440  UHATU1  P 

5 

00470  UHA1UC  P 

5 

00480  IMTUK  P 

« 

00490  UOTUP  P' 

3 

00300  potto  p 

3 

oosio  urns*  p 

5 

00320  FOVM)  P 

5 

00330  UOWW  P 

3 

00340  FOR  P 

3 

00350  UGU  P 

5 

00360  OKTRACT  P 

3 

00570  0FM1I  P 

5 

00580  onne  ? 

3 

00590  GFRK  P 

3 

00600  GFWP  P 

3 

00610  FGFSEHV  P 

3 

00620  UBFSSW  P 

5 

00630  FMAINSPT  P 

3 

00640  UMA1MSPT  P 

5 

00430  PWOSKTY  P 

3 

00440  nmasr-p. 

5 

00470  OMTTdYM  P 

3 

00480  MTPSEYR  P 

3 

00490  OTOTHYR  P 

3 

00700  mommys  p 

3 

00710  AM  P 

4 

00720  ENB 

00730  /♦ 

00740  // 

EW  OF  DATA 

FIGURE  C-8 .  PRPNCH 


00010  //0S20CHH  JOB  (OS20,N308D,15U.M),HAN»HS?K)TE>I«>TIFY>OS20CHH. 

00020  //  CLASSES. HSGCIASS=H 

00040  //  EIEC  PGM»IEBPTPCHtREG10H»100K 

00050  //SYSPRINT  00  SYSOUT=H 

00060  //SYSUT1  00  DS»6«=ftSW21U.N3080.f1W47?,UHIT»TAf>E9,UBEL=(,SL). 
00070  //  DISP*GLD>  VCL=SEF=086023.  OCBa(RECFH=FB.  LRECL*259i  8LKSIZE32590) 
00080  //SYSUT2  00  SYSCUTsH 
00090  //SYSIM  DO  * 

00100  PRINT  TOTCONV=XEi  STCPAFT»2 
00110  /* 

00115  // 

END  OF  DATA 


FIGURE  C-9.  SCRATCH 


00010  //OS20CHH  JOB  \0S20,N308DaiU)»HANKSHSN0TE,N0TIFY=OS20CHH, 

00020  //  CLASS*RjMSSCLASS=H 

00040  //SCRATCH  EXEC  AEHPRQGfcSER"  ,UNI>3330 

00050  // SYSIN  00  * 

00060  SCRATCH  VOL=3330»  .VTOC.PURGE 
00070  /* 

END  OF  DATA 


FIGURE  C-IO.  SCRDS 


00010  //OS20CHH  JOB  (OS2O,N3O^aiU>.HAM(S-RENOTl>N0TIFYsOS20CW, 

00020  //  CLASS*R.NSGCLASS«H 

00040  //SCRATCH  EXEC  AEHPROGH.SER*  , UIIT-3330 

00050  //SYSIN  DD  * 

00060  SCRATCH  VCL-3330-  ,  DSNANE-OS2001U. M308D. C0STAC78.  ITS.  INDEX, PURGE 

00070  /* 

00000  // 

EM)  OF  DATA 


FIGURE  C-ll.  VERIFY 


00010  //0S20CW  JOB  (0S20,«308D,15U),H^H€^,^FY<>S20Oll,CLASS=S, 

00020  //  HSGCLASS=H 

00040  //VERIFY  EXEC  TAPEL.SER******* 

00050  // 

END  OF  DATA 


C-7 


I 


APPENDIX  D 


DoD  7220. 29-H  REPORTING  REQUIREMENTS 


7220. 29-H 
Oct.  21.  75  >t 


CHAPTER  7 
REPORTING 

SECTION  700  -  REQUIREMENTS 


70001  Requirements 


A.  These  reporting  requirements  contained  in  this  Chapter  of  the 
Handbook  were  developed  by  the  Directorate  of  Maintenance 
Policy,  0ASD(I&L).  The  nonstandard  data  elements  and  codes 
contained  herein  will  be  submitted  to  the  Logistics  Data 
Element  Standardization  and  Management  Office  for  standardization. 
Changes  incorporating  the  appropriate  references  will  be  added 
as  necessary. 

3.  Each  DoD  Component  shall  maintain,  in  a  central  location,  a  magnetic 
tape  prepared  in  accordance  with  the  magnetic  tape  layout  and  instruc¬ 
tions  in  this  chapter.  This  tape  will  be  updated  quarterly  on  a 
cumulative  basis  for  provisionally  closed  completed  job  orders. 

The  final  fiscal  year  tape  will  be  submitted  to  the  Assistant 
Secretary  of  Defense  (Comptroller),  Attention:  Directorate  for 
Information  Operations  and  Control  within  ninety  (90)  days  of 
the  end  of  the  fiscal  year.  A  copy  of  the  final  fiscal  year 
cape  will  be  retained  by  the  DoD  Component  indefinitely  since  the 
space  required  for  storage  of  the  tapes  involved  is  so  small  and 
retention  of  the  data  will  allow  portrayal  of  weapon  system  mainte¬ 
nance  costs  trends.  It  is  recognized  that  cards,  discs,  etc.,  are 
used  in  day-to-day  operations,  as  well  as  magnetic  capes;  however, 
magnecic  tape  submission  of  the  final  data  for  each  fiscal  year  is 
required.  The  assigned  Report  Control  Symbol  is  RCS  DD  I&L(A)1297. 

70002  Magnetic  Tape  Layout 
A.  General 


A  data  record  is  required  for  each  type  of  depot  maintenance  work 
(Field  14)  performed  for  a  single  customer  (Field  15)  at  an  individ¬ 
ual  activity  (Field  5)  on  the  same  item  or  grouping  of  items  permitted 
under  the  job  order  criterion  in  31002. A.  and  identified  in  Field  9. 
All  quantities  and  amounts  will  be  right-justified  and  the  unused 
high  order  positions  will  be  zero  filled.  Monetary  amounts  will  be 
rounded  to  the  nearest  whole  dollar.  If  a  quantity  or  dollar  field  is 
not  applicable  or  a  zero  entry  applies,  the  entire  field  will  be  zero 
filled.  It  is  extremely  important  that  entries  for  each  field  of  the 
data  record  comply  exactly  with  specifications  in  this  Chapter.  DoD 
Components  shall  incorporate  validity  checks  of  the  data  prior  to 
submission  of  data  to  OSD. 


"First  amendment  i^Ch  1,  12/16/76) 


7220. 29-H 
Oct.  21,  75  # 


3.  Data  Record  for  Completed  Items  or  Services. 


'ield 

No .  - 

Description  of  Data 

Tape 

Positions 

No .  of 
Positions 

Record  Identification 

1 

Record  Type  "F" 

1 

1A 

2 

Quarter  Code 

2 

IN 

Fiscal  Year 

3-4 

2N 

Identification  of  Facility 

4 

Program  Element 

5-10 

6A/N 

5 

Facility  Name  or  Code 

11-24 

a.  Organic  Activity  Name 

11-24 

b.  Contractor  Activity  Code 

11-22 

12A/N 

6 

Inside  or  Outside  U.S.  Code 

25 

IN 

7 

Owner/Operator  Code 

26 

IN 

3 

Reporting  Facility  Code 

27-31 

Identification  of  Item/ Service  and 

Customer 

9 

Item  Identification  Number 

32-44 

13A/N 

10 

Item  Nomenclature 

45-64 

20A/N 

11 

Standard  Inventory  Price 

65-74 

ION 

12 

Weapon  or  Support  System  Code 

75-73 

4A/N 

13 

Work  Breakdown  Structure  Code 

79-31 

3A/N 

14 

Work  Performance  Category 

32-34 

3A/N 

15 

Customer  Code 

35-S6 

2A/N 

16 

Unused 

//First  amendment  (Ch  1,  12/16/76) 

D-2 


Field 

No. 

Description  of  Data 

Tape 

Positions 

No .  of 
Positions 

Labor  Hour  and  Cost  Data 

17 

Direct  Civilian  Labor  (Production) 
Cost 

87-94 

8N 

18 

Direct  Civilian  Labor  (Production) 
Hours 

95-102 

8N 

19 

Direct  Civilian  Labor  (Other)  Cost 

103-110 

8N 

20 

Direct  Civilian  Labor  (Other)  Hours 

111-118 

8N 

21 

Direct  Military  Labor  (Production) 
Cost 

119-126 

8N 

22 

Direct  Military  Labor  (Production) 
Hours 

127-134 

8N 

23 

Direct  Military  Labor  (Other)  Cost 

135-142 

8N 

24 

Direct  Military  Labor  (Other)  Hours 

143-150 

8N 

25 

Direct  Material  Cost  -  Funded 

151-158 

8N 

26 

Direct  Material  Cost  -  Unfunded 
(Investment  Items  at  Full  Price) 

159-166 

8N 

27 

Direct  Material  Cost  -  Unfunded 
(Exchanges) 

167-174 

8N 

28 

Direct  Material  Cost  -  Unfunded 
(Modification  Kits) 

175-182 

8N 

29 

Direct  Material  Cost  -  Unfunded 
(Expense) 

183-190 

3N 

30 

Other  Direct  Cost  -  Funded 

191-198 

8N 

31 

Other  Direct  Cost  -  Unfunded 

199-206 

8N 

32 

Operations  Overhead  -  Funded 

207-214 

8N 

33 

Operations  Overhead  -  Unfunded 

215-222 

8N 

D-3 


7220. 29-H 
Oct.  21.  75  # 


Field  Tape  No.  of 


No. 

Description  of  Data 

Positions 

Positions 

34 

General  and  Administrative  Expense  - 
Funded 

223-230 

8N 

★ 

35 

General  and  Administrative  Expense  - 
Unfunded 

231-238 

8N  * 

* 

36 

Contract/Interservice/Non-Depot 
Maintenance  Activity  Cost 

239-246 

* 

55 

00 

37 

Government-Furnished  Material 

(Investment  Items  at  Full  Price) 

247-254 

8N 

38 

Government-Furnished  Material 
(Exchanges ) 

255-262 

8N 

39 

Government-Furnished  Material 
(Modification  Kits) 

263-270 

8N 

40 

Government-Furnished  Material 
(Expense) 

271-278 

8N 

41 

Government-Furnished  Services  - 
Funded 

279-286 

8N 

42 

Government-Furnished  Services  - 
Unfunded 

287-294 

8N 

43 

Maintenance  Support  Costs  Organic  - 
Funded 

295-302 

8N 

44 

Maintenance  Support  Costs  Organic  - 
Unfunded 

303-310 

8N 

Production  Data 

45 

Total  Production  Quantity  Completed 

311-318 

8N 

* 

46 

Unused 

319-326 

* 

55 

00 

47 

Quantity  of  Completed  Items  Inducted 
During  Reporting  Year 

327-334 

8N 
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ield 

No. 


48 


49 

50 


Tape  No.  of 

Descripcion  of  Data  Positions  Positions 

Quantity  of  Completed  Items  Inducted 
During  Year  Preceding  Reporting 


Year 

335-342 

8N 

Quantity  of  Completed  Items 
During  All  Other  Previous 

Inducted 

Years 

343-350 

8N 

Work  Days  in  Process 

351-354 

4N 

Leave  Blank 

355-360 
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Explanation  of  Entries  Required  for  Data  Record 

Field  1  -  Record  Type 

Use  record  type  "F"  to  identify  this  record. 

2.  Field  2  -  Quarter  Code 

Use  Reference  No.  QU-JB.  DoD  5000. 12M  (reference  (j)). 

3.  Field  3  -  Fiscal  Year 

Use  Reference  No.  YE-NA.  DoD  5000. 12M  (reference  (j)). 

4 .  Field  4  -  Program  Element 

Use  program  element  codes  for  performing  activity  as  specified  in 

DoD  7045. 7-H  (reference  (h)). 

5.  Field  5  -  Facility  Name  or  Code 

a.  Organic  Activity  Name.  If  the  activity  is  Government-Operated 
(Codes  1,  2  or  4  in  Field  7),  enter  an  alpha  name  (abbreviated  * 
as  necessary  so  as  not  to  exceed  14  digits)  of  the  activity  at 
which  the  depot  maintenance  is  performed.  Start  in  position 

11,  and  if  the  name  is  less  than  14  digits,  leave  the  remaining 
positions  blank.  The  activity  name  must  be  spelled  the  same  on 
all  records. 

b.  Contractor  Activity  Code.  If  the  maintenance  activity  is 
contractor-operated,  enter  the  12  digit  code  as  prescribed  in 
DoD  Procurement  Coding  Manual,  VOL.  II  (reference  (k))  to 
identify  the  contractor  and  his  location  (city  and  state  or  * 
country).  Start  in  position  11  and  leave  positions  23  and  24 
blank.  Positions  11  through  16  must  be  numeric  and  cannot 

be  blank  or  alpha.  If  positions  21  and  22  are  alpha  (denoting 
foreign  locations),  positions  17  through  20  must  be  zero  filled  — 
except  for  Puerto  Rico.  If  the  code  number  is  not  listed  in 
the  Manual,  within  20  days  after  the  contract  award,  a  request 
for  assignment  of  a  code  shall  be  forwarded  to  the  OASD 
(Comptroller) ,  Attention:  Directorate  for  Information  Operations 
and  Control,  Washington,  D.C.  20301.  Small  contractors  not 
eligible  for  code  will  be  included  by  zero  filling  this  field. 

6.  Field  6  -  Inside  or  Outside  U.S.  Code 


Enter  one  of  the  following  codes  to  indicate  whether  the  organic 
or  contractor  activity  performing  the  depot  maintenance  is  located 
within  or  outside  the  contiguous  United  States.  Code  1  shall  be 
used  to  indicate  within  the  U.S.;  Code  2,  outside  the  U.S.,  in¬ 
cluding  Alaska  and  Hawaii. 
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7.  Field  7  -  Owner/Operator  Code 

Enter  one  of  the  following  to  indicate  the  type  of  activity  performing 
the  maintenance: 

Code  1  -  Government-Owned,  Goverament-Operated-Reporting  Component  - 
Depot  Maintenance  Activity. 

Code  2  -  Government-Owned,  Government-Operated-Reporting  Component  - 
Non-Depot  Maintenance  Activity. 

Code  3  -  Contractor-Owned,  Contractor-Operated;  Jointly  (Contractor 

and  Government)  -  Owned,  Contractor-Operated;  or  Government- 
Owned,  Contractor-Operated. 

Code  4  -  Government-Owned,  Government-Operated  -  Other  Component. 

Use  this  code  for  completed  work  authorized  by  the  Reporting 
Component's  budget,  but  performed  in  another  Component's 
activity. 

When  Code  1  is  entered  in  this  field.  Fields  36  through  42  will  be 
zero  filled;  when  either  of  Codes  2,  3,  or  4  is  entered.  Fields  17 
through  35  will  be  zero  filled. 

When  Code  2  is  entered  in  this  field,  Field  36  will  be  non-depot 
maintenance  activity  cost;  when  Code  3  is  entered.  Field  36  will  be 
contract  cost;  when  Code  4  is  entered.  Field  36  will  be  inter-service 
cost. 

8.  Field  8  -  Reporting  Facility  Code 

A  code  identifying  the  reporting  activity,  including  the  purchasing 
or  contract  administration  office,  as  well  as  a  depot  maintenance 
activity  operated  by  the  reporting  service.  Use  Reference  No.  DE-NM, 
DoD  5000. 12M  (reference  (j))  -  one  digit  for  DoD  Component,  and  Ref¬ 
erence  No.  CO-HJ,  DoD  5000. 12M  (reference  (j))  -  four  digits  for 
organization. 

9 .  Field  9  -  Item  Identification  Number 

A  code  to  identify  the  specific  item  on  which  depot  maintenance  was 
performed.  Do  not  use  punctuation  such  as  dashes  or  slashes,  or 
blank  spaces  between  digits.  Start  in  position  32;  and  if  less  than 
13  digits  are  required,  leave  unused  positions  blank.  Sample  entries 
for  this  field  are  as  follows: 
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a.  If  Che  item  is  an  aircraft,  an  aircraft  or  rocket  engine,  or  a  missile, 
show  the  type,  model  and  series  according  to  the  examples  below.  See 
DoD  Directive  4120. IS  (reference  (1)).  Do  not  show  cype,  model  or 
series  in  this  field  for  communication  or  other  equipment. 


PE  POSITIONS 


36  37  38  39  40  41  42 


TYPE  OF  AIRCRAFT 


Prototype  Aircraft 


Special  Mission  Type  Aircraft 


Standard  Series  Type  Aircraft 


erimental  Type  Aircraft 


TYPE  OF  ENGINE 


erimental  Jet  Engine 

X 

DU 

9 

G 

E 

1 

3 

Standard  Reciprocating  Engine 


Standard  Reciprocating  Engine, 
Water  Injection 


Standard  Jet  Engine 


Standard  Reciprocacing  Engine, 
Water  Injection,  Ser  A 


Standard  Turbo-Fan  Engine 


ommercially  Designated  Engine 


PE  OF  MISSILE 


Standard  Missile 


erimental  Missile 


Standard  Probe 


Standard  Rocket 


NOTE:  0  means  zero. 


M 

3 

t 

I 

M 

2 

N 

5 

N 

R 

1 

B 
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* 


* 


* 

* 

* 

* 

* 

* 

* 


b.  If  the  item  is  a  vessel,  show  ship  type  and  hull  number  in  the 
first  eight  (8)  positions,  and  leave  the  remaining  five  (5) 
positions  blank. 

c.  If  ammunition  rework  or  renovation  is  performed  by  a  depot 
level  maintenance  activity,  total  costs  will  be  recorded  by 
work  breakdown  structure  code  H3,  (Field  13)  only  and  this 
field  will  be  left  blank. 

d.  If  none  of  the  above  is  applicable  and  the  job  order  criterion 
in  31002. A.  requires  NSN  identification,  enter  that  NSN;  e.g., 
6730001161618  in  positions  32  through  44. 

e.  If  none  of  the  above  is  applicable,  enter  the  letters  or  num¬ 
bers  used  in  the  Job  Order  identification  required  in  31002. A. 
The  first  four  digits  should  identify  Federal  Supply  Classes 
per  the  H2-1  Cataloging  Handbook  and,  of  the  remaining  9 
positions,  one  must  be  alphabetic.  Leave  field  blank  when  WPC 
(Field  14)  is  for  "maintenance  support"  (P,  Q,  R,  S)  or  "non¬ 
maintenance"  (T) . 

10.  Field  10  -  Item  Nomenclature 


* 


★ 


* 
* 
★ 
* 
• k 
* 
★ 


A  20-digit  field  describing  the  specific  item  on  which  maintenance 
was  performed,  or  the  support  service  which  was  performed.  Use  com¬ 
mon  abbreviations  if  more  than  20  positions  would  otherwise  be  re¬ 
quired.  Start  in  position  45  and  leave  blank,  unused  positions  to  the 
right. 

a.  For  aircraft  and  missiles,  use  popular  names,  if  assigned,  e.g., 
LIFTMASTER,  SKY TRAIN,  CHICKASAW,  COUGAR,  FALCON,  LANCE,  FIREBEE, 
TITAN,  etc.  If  a  popular  name  has  not  been  assigned,  or  is  un¬ 
known,  use  the  basic  mission  of  the  aircraft  or  missile;  e.g., 
FIGHTER  AIRCRAFT,  TRAINER  AIRCRAFT,  CARGO  TRANS  AIRCRAFT,  UTIL 
HELICOPTER,  AIR  GROUND  MISSILE. 

b.  For  aircraft  and  rocket  engines,  use  the  name  of  the  engine  type. 
Examples  are:  TURBOJET  ENG,  RAM  JET  ENG,  LIG  PROP  ENG,  ROCKET 
ENG,  RADIAL  ENG. 

c.  For  vessels,  use  the  name  of  the  ship  type.  Examples  are  FBM  SUB, 
NUCLEAR;  ATTACK  CARRIER;  ANTISUB  DESTROYER;  etc. 

d.  For  conventional  ammunition,  use  "Ammunition." 

e.  For  items  with  an  NSN,  use  the  description  generally  carried  in 
the  Federal  Supply  Catalog. 

f.  For  manufactured  items,  use  either  "For  Stock  Fund"  or  "Non-Stock 
Fund." 
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g.  For  maintenance  support  functions,  use  the  abbreviated  title 
of  the  function. 

h.  For  all  other  items,  use  the  noun  and  modifiers  best  describing 
the  item. 


11.  Field  11  -  Standard  Inventory  Price 


Enter  the  unit  price  of  each  item  identified  in  Field  9.  Zero  fill 
this  field  for  vessels  and  for  Work.  Performance  Categories  N  through  T. 
If  the  unit  price  of  an  item  such  as  ammunition  is  customarily  cited 
in  hundreds  or  thousands  and  the  conversion  to  a  "per  each"  price 
would  distort  the  figures,  the  unit  price  shall  be  given  on  a  per 
hundred  or  per  thousand  basis  and  the  quantity  completed  in  Field  45 
shall  also  be  reported  in  hundreds  or  thousands  as  applicable.  Other¬ 
wise,  all  items  shall  be  reported  on  a  "per  each"  basis. 


Field  12  -  Weapon  or  Support  System  Code 


* 


A  code  identifying  a  specific  weapon  or  support  system.  Use  existing 
coding  systems  now  used  by  DoD  Components  for  depot  maintenance  re¬ 
porting.  A  copy  of  the  coding  system  used  shall  be  submitted  with 
the  magnetic  tape  for  the  first  data  submission  and  shall  be  updated 
as  changes  occur.  Code  997  shall  be  used  if  an  item  cannot  be 
identified  to  a  specific  weapon  or  support  system,  but  can  be  identi¬ 
fied  in  Field  13  to  a  major  commodity  group  (e.g.,  aircraft,  missiles) 
and  to  a  category  (e.g.,  fighters,  bombers,  etc.)  within  the  major 
commodity  group.  Code  998  shall  be  used  if  identification  is  possible 
only  to  che  major  commodity  group  and  not  to  a  category.  Code  999 
shall  be  used  if  identification  cannot  be  made  to  a  major  commodity 
group  and  Work  Breakdown  Structure  Code  Lll  is  used  in  Field  13. 


13.  Field  13  -  Work  Breakdown  Structure  Code 


Each  record  on  Che  magnetic  tape  shall  carry  in  Positions  79-81  a 
code  to  identify  the  weapon  or  support  system  work  breakdown  struc¬ 
ture  applicable  to  the  item  described  by  the  Identification  Code 
(Field  9)  and  Item  Nomenclature  (Field  10).  Use  the  Work  Breakdown 
Structure  Code  established  in  Appendix  D.  Code  Lll  shall  be  used 
if  che  item,  service,  or  investment  cannot  be  identified  with  a 
specificai.  listed  Work  Breakdown  Structure  Code  and  Code  999  is 
used  in  Fie*-  12. 


Field  14  -  Work  Performance  Category 


This  is  a  code  to  indicate  the  type  of  maintenance  work  provided  on 
che  item  identified  in  Field  9  or  the  type  of  maintenance  support 
service  provided.  Use  the  Codes  in  Appendix  E.  Basic  alpha  codes 
should  be  subdivided  with  a  numerical  designation  by  each  Component 
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as  required  for  ics  internal  management  and  analysis  and  budget  re¬ 
views  and  justification.  For  all  Items  with  a  Work  Performance  Cate¬ 
gory  of  P  through  S,  a  dollar  entry  is  required  in  Field  43  or  44 
if  the  maintenance  support  functions  are  performed  by  depot  mainte¬ 
nance  activicy  or  maintenance  support  activity  personnel  and  in 
Field  36  if  performed  by  contractor  personnel. 

15.  Field  15  -  Customer  Code 


A  two  digit  code  identifying  the  DoD  Program  and  Department  or  Agency 
billed  for  the  maintenance  cost.  Position  35  shall  identify  the  DoD  * 

program  by  a  numeric  code  from  1  through  0.  If  no  DoD  program  is  in¬ 
volved,  e.g.,  work  performed  for  other  Federal  Agencies,  leave  blank. 
Position  86  shall  use  Reference  No.  DE-NM.  DoD  5000. 12M  (reference  (j))  * 

for  DoD  Component.  Additionally,  use:  Y  -  Other  Federal  Agencies,  and  * 
Z  -  Non-Federal  Agencies. 

16.  Field  16  -  Leave  Blank 


17.  Fields  17-44  -  Labor  Hour  and  Cost  Data 


a.  General.  The  direct  labor  hours  and  summary  elements  of  cost  to 
be  reported  are  set  forth  below.  The  various  elements  of  cost 
are  explained  in  detail  in  Chapter  3.  Some  clarifying  notations 
are  included  below  for  certain  fields. 

b .  Field  17  -  Direct  Civilian  Labor  (Production)  Cost. 

This  field  will  be  completed  only  for  Work  Performance  Categories 
A  through  M  or  T  in  Field  14.  * 

c.  Field  18  -  Direct  Civilian  Labor  (Production)  Hours. 

This  field  will  be  completed  only  for  Work  Performance  Categories 
A  through  H  or  T  in  Field  14.  * 

d.  Field  19  -  Direct  Civilian  Labor  (Other)  Cost. 

This  field  will  be  completed  only  for  Work  Performance  Categories 
A  through  N  or  T  in  Field  14.  * 

e.  Field  20  -  Direct  Civilian  Labor  (Other)  Hours. 

This  field  will  be  completed  only  for  Work  Performance  Categories 
A  through  N  or  T  in  Field  14.  * 

f .  Field  21  -  Direct  Military  Labor  (Production)  Cost. 

This  field  will  be  completed  only  for  Work  Performance  Categories 
A  through  M  or  T  in  Field  14.  * 
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•k 


■k 


g .  Field  22  -  Direct  Military  Labor  (Production)  Hours. 

This  field  will  be  completed  only  for  Work  Performance  Categories 
A  through  M  or  T  in  Field  14.  * 

h.  Field  23  -  Direct  Military  Labor  (Other)  Cost. 

This  field  will  be  completed  only  for  Work  Performance  Categories 
A  through  N  or  T  in  Field  14.  * 

i.  Field  24  -  Direct  Military  Labor  (Other)  Hours. 

This  field  will  be  completed  only  for  Work  Performance  Categories 
A  through  N  or  T  in  Field  14.  * 

j .  Field  25  -  Direct  Material  Cost  Funded. 

k.  Field  26  -  Direct  Material  Cost  Unfunded  (Investment  Items  at  Full  Price) . 

l.  Field  27  -  Direct  Material  Cost  Unfunded  (Exchanges) . 

m.  Field  28  -  Direct  Material  Cost  Unfunded  (Modification  Kits) . 

n.  Field  29  -  Direct  Material  Cost  Unfunded  (Expenses) . 

Customer  furnished  expense  items  would  be  covered  by  this  cost  element. 

o .  Field  30  -  Other  Direct  Costs  Funded. 

p .  Field  31  -  Other  Direct  Costs  Unfunded. 

An  example  is  personal  service  funded  by  the  Veterans  Administration. 

q .  Field  32  -  Operations  Overhead  Funded. 

r .  Field  33  -  Operations  Overhead  Unfunded. 

Military  personnel  costs  for  indirect  effort  is  a  primary  example. 

s .  Field  34  -  General  and  Administrative  Expense  -  Funded. 

t .  Field  35  -  General  and  Administrative  Expense  -  Unfunded. 

u.  Field  36  -  Contract/Interservice/Non-Depot  Maintenance  Activity  Cost. 

When  code  1  is  entered  in  Field  7,  this  field  will  be  zero  filled; 

when  code  2  is  entered  in  Field  7,  this  field  will  be  non-depot 

maintenance  activity  cost;  when  code  3  is  entered  in  Field  7,  this 
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field  will  be  contract  cost;  when  code  4  is  entered  in  Field  7, 
this  field  will  be  interservice  cost. 


V. 

Field 

37 

- 

Government 

Furnished 

Material 

(Investment  Items  at 

Full  Price). 

w. 

Field 

38 

— 

Government 

Furnished 

Material 

(Exchanges) . 

X. 

Field 

39 

Government 

Furnished 

Material 

(Modification  Kits). 

y- 

Field 

40 

_ 

Government 

Furnished 

Material 

(Expense) . 

Z. 

Field 

41 

[ 

Government 

Furnished 

Services 

-  Funded. 

aa. 

Field 

42 

. 

Government 

Furnished 

Services 

-  Unfunded. 

bb. 

Field 

43 

_ 

Maintenance  Support 

Costs  Organic  -  Funded. 

cc. 

Field 

44 

_ 

Maintenance  Support 

Costs  Organic  -  Unfunded. 

18.  Field  45  -  Total  Production  Quantity  Completed 

Enter  the  total  quantity  of  items  (see  the  definition  for  completed 
items)  covered  by  job  orders  financially  completed  during  the  period 
covered  by  the  report.  This  field  must  be  zero  filled  for  Work 
Performance  Categories  N  through  T.  See  instructions  for  Field  11 
for  special  reporting  of  quantities  in  hundreds  or  thousands  to 
avoid  distortion  of  data.  The  quantity  entered  in  this  field  should 
equal  the  sum  of  the  quantities  entered  in  Fields  47,  48  and  49. 


19. 


20. 

21. 


22. 


Field  46  -  Leave  Blank 

Field  47  -  Quantity  of  Completed  Items  Inducted  During  Reporting 

Field  48  -  Quantity  of  Completed  Items  Inducted  During  Year  Preci 
Reporting  Year 

Field  49  -  Quantity  of  Completed  Items  Inducted  During  All  Other 
Previous  Years 


Year 


23.  Field  50  -  Work  Days  in  Process 

Reporting  average  number  of  work  days  that  items  were  in  process, 
i.e.,  from  date  of  physical  induction  to  date  when  items  are  com¬ 
pleted,  passed  final  inspection,  and  are  ready  for  delivery  to  the 
customer. 
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Description 


Record  Type 
Quarter  Code 


Fiscal  Year 


Program  Element 


Tape 

Positions 


Facility  Name  or  Code 


11-24 


Edit  Instructions  * 

Must  be  F.  * 

Must  be  1-4  for  current  * 
fiscal  quarter.  * 

Must  be  two  terminal  * 
digits  of  current  fiscal  * 
year  reported.  * 

Position  10  (low  order  * 
position)  must  contain  * 
code  A,  F,  M.  or  N  for  * 
military  service  report-  * 
ing.  * 

If  entry  in  Owner/  * 

Operator  Code  (Field  7)  * 

is  1,  2,  or  4,  then  * 

position  11  must  be  * 

alphabetic.  If  entry  * 
in  Owner/Operator  Code  * 
is  3,  then  positions  22-  * 
24  must  be  blank,  positions 
11-2C  must  be  numeric  and* 
if  positions  21-22  are  * 
alphabetic  other  than  PR,* 
then  positions  17-20  must* 
be  zeros.  * 


Inside  or  Outside  U.S.  Code  25 


Must  be  1  or  2. 


Owner/Operator  Code 


Reporting  Facility  Code 


27-31 


Item  Identification  Number  32-44 


Must  be  1-4. 
Note  1. 


Also  see 


Position  27  must  be  A,  * 
F,  M,  or  N.  No  edit  * 
on  positions  28-31  at  * 
present  time.  * 

This  field  must  have  * 
an  entry  unless  Work  * 
Performance  Category  * 
(Field  14)  has  code  * 
P,  Q,  R,  S,  or  T,  or  * 
Work  Breakdown  Structure  * 
Code  (Field  13)  has  code  * 
H3.  * 
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Tape 

* 

Field 

Description 

Positions 

Edit  Instructions 

* 

* 

10 

Item  Nomenclature 

45-64 

Must  have  an  entry. 

* 

* 

11 

Standard  Inventory  Price 

65-74 

Must  have  numeric  entry. 

* 

Also,  must  be  zeros  if 

k 

Work  Performance  Category 

k 

(Field  14)  has  code  N-T. 

k 

* 

12 

Weapon  or  Support  System 

75-78 

Must  have  code  entry. 

k 

* 

Code 

Also  see  Note  2. 

k 

* 

13 

Work  Breakdown  Structure 

79-81 

Must  have  valid  code  from 

k 

* 

Code 

Appendix  D.  See  note  2  for  * 

exceptions. 

k 

* 

14 

Work  Performance  Category 

82-84 

Position  82  must  be  A-N  or 

k 

■k 

P-T.  Positions  83-84  must 

k 

be  numeric  or  blank.  Also 

k 

see  Note  3. 

k 

k 

15 

Customer  Code 

85-86 

Position  85  must  be  blank 

k 

or  numeric.  Position  66 

k 

must  be  A,  F,  M,  N,  S,  1, 

k 

or  2. 

k 

* 

16 

Not  Used 

k 

* 

17-44 

(Labor  Hours  &  Cost  Data) 

87-310 

Must  be  numeric  or  zero 

k 

filled.  Also  see  Note  4. 

k 

* 

45-50 

(Production  Data) 

311-354 

Must  be  numeric  or  zero 

k 

filled,  except  that  posi¬ 

k 

tions  319-326  are  blank. 

k 

Also  see  Note  5. 

k 

•k 

Leave  Blank 

355-360 

k 

k 

Note  1. 

If  Field  7  is  2,  3,  or  4, 

then  Fields  17-35 

must  be  zero. 

k 

If  Field  7  is  1,  then  Fields  36-42  must  be  zero. 

Note  2.  If  Field  12  is  999,  then  Field  13  must  be  LU. 

If  Field  12  is  998,  then  Field  13,  positions  80  and  81  must  be  blank.. 

If  Field  12  is  997,  then  Field  13,  position  81  must  be  blank. 

Note  3.  If  Field  14  is  A-N  or  T,  then  Fields  43-44  must  be  zero. 

If  Field  14  is  N,  then  Fields  17,  18,  21  and  22  must  be  zero. 

If  Field  14  is  P-S,  then  Fields  17-35  and  32-42  must  be  zero. 

If  Field  14  is  N-T,  then  Fields  45-50  must  be  zero. 

Note  4.  If  cost  data  in  Fields  17,  19,  21  or  23  have  zeroes,  then  the 

accompanying  Hours  Data  in  Fields  18,  20,  22  or  24  must  also  have 
zeroes.  The  reverse  conditions  are  also  edited  in  the  same  manner. 

Note  5.  Field  45  must  equal  the  sum  of  Fields  47,  48  and  49. 
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7220. 29-H 
Occ.  21,  75  » 


E.  Tape  Submission  * 


1.  Each  DoD  Component  will  insure  that  the  magnetic  tape  is  in  binary  * 

coded  decimal  form,  unblocked  or  blocked  10,  7  or  9  track,  and  with  * 
a  tape  density  of  556  or  800  characters  per  inch.  The  tape  will  * 

contain  a  header  record  of  not  more  than  84  characters  followed  by  * 
a  tape  mark  (7-8  punch),  then  the  data  records  described  in  70002. B.,  * 
and  a  trailer  label  of  not  more  than  84  characters  preceded  and  * 

followed  by  a  tape  mark  (7-8  punch).  The  contents  of  the  header  * 

and  trailer  labels  will  be  determined  by  each  reporting  DoD  Component.* 

2.  Tape  reels  will  have  an  external  label  identifying  the  contents;  * 

i.e..  Depot  Maintenance  and  Maintenance  Support  Cost  and  * 

Production  Report,  fiscal  year  of  report,  submitting  component  * 

name  and  office  name  and  mailing  address  to  which  the  reels  are  to  * 
be  returned.  The  external  label  must  also  indicate  whether  the  tape  * 
is  7  or  9  track,  556  or  800  density,  and  whether  the  data  records  * 
are  unblocked  or  blocked  10.  * 


70003  Special  Reports 

Any  one-time  or  additional  reports  will  be  prescribed  in  accordance 
with  DoD  5000.19  (reference  (i)). 
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APPENDIX  F 


FEDERAL  INFORMATION  PROCESSING  STANDARD  SOFTWARE  SUMMARY 


01,  Nummary  date)  02.  Summary  prepared  by  (Nmm»  and  Phona) 

C.  H.  Hanks  (301)  229-1000 


EBBaBH 

EmaiiHE 


06.  Short  title 


Software  title 


03.  Nummary  action 

New  Replacement  Deletion 

S  n  a 

Previous  Internal  Software  ID 


DEPOT  PERFORMANCE  DATA  BASE  SYSTEM 


DEPOT  PERFORMANCE  DBS 


•lyrl 


riKMiKMii:  g 


08.  Software  type  09.  Processing 

mode 

Automated  Data  _ 

System  f  1  Interactive 

Computer  Program  [  XI  Batch 
Subroutine/Module  )  Combination 


11,  Submitting  organization  and  address 


10.  Application  area 

P.gngyai  Specific 

_  Computer  Systems  ___  Management/  _ 

[  Support/Utiiity  Xj  Business  DfipOt  M3.1Ilt 61131106 

I  Scicncitic/tnginccf  inn  I  I  Process  Control  Cost  and  Production 
j  "  !  Bibliographic/TextuaJ  ‘  1  Other  Data 


12.  Technical  contactlsi  ana  phone 


Logistics  Management  Institute 
4701  Sangamore  Road 
Washington,  D.C.  20016 


C .  H .  Hanks 
(301)  229-1000 


The  Depot  Performance  DBS  is  a  management  information  system  to  support 
analyses  of  depot  maintenance  performance  in  the  Department  of  Defense.  The 
DBS  provides  access/information  retrieval  capability  for  DoD  7220. 29-H  cost 
and  production  data  on  depot  maintenance  programs  compiled  annually  by  the 
Military  Departments  and  submitted  to  Office  of  the  Assistant  Secretary  of 
Defense  (Manpower,  Reserve  Affairs,  and  Logistics).  It  utilizes  the  INQUIRE 
DBMS  package  installed  on  System  K  (IBM  3032)  at  Air  Force  Data  Services 
Center,  the  Pentagon,  Washington,  D.C. 


14.  Keywords 

Depot  Maintenance;  Cost  and  Production  Data;  Data  Base  Management  System; 
Information  Retrieval 


IS.  Computer  manuf’r  and  model  116.  Computer  operating  system  117.  Programming  languages)  118.  Numoer  or  source  program 


IBM  3032 
System  K.  AFDSC 


0S/VS2  MVS 
Release  3.7 


!0.  Tape  drives 

3  (maximum) 
1600/6250  bpi 


INQUIRE  DBMS 
User  Language 


statements 

14  application  &  12  macro® 
18  data  baaa  routines 


Other  operational  requirements 

INQUIRE  DBMS  software  package  - 


Release  10,  Version  1,  or  later  release, 

if  compatible. 


24.  Software  availability  25.  Documentation  availability 

Available  Limited  In-house  onlv  Available  Inadequate  In*house  only 

a  ca  a  s i  a  a 


For  Government  use  only 


Users  Manual 

Logistics  Management  Institute 
4701  Sangamore  Rd.,  Washington,  D.C. 


26.  FOR  SUBMITTING  ORGANIZATION  USB 


Users  Manual,  format  and  contents  as  prescribed  in  DoD  7935. 1-S  "Automated 
Data  Systems  Documentation  Standards,"  September  1977. 

Prepared  by  LMI,  Defense  Contract  No.  MDA-903-80-0554  (Task  DP  102) 
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t.  REPORT  number 
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Depot  Performance  Data  Base  System 


Users  Manual 
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n.  controlling  office  name  and  address 

Office  of  the  Assistant  Secretary  of  Defense 
(Manpower,  Reserve  Affairs,  and  Logistics) 


DoD  MDA-903-80-C-0554 
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20.  ABSTRACT  (ConUouo  an  reeereo  aid.  1/  neeeeeary  mtd  identity  by  block  number)  -£he  Depot  Performance  Data 

Base  System  (DBS)  is  a  computerized  management  information  system  designed  to  sup¬ 
port  analyses  of  depot  maintenance  performance  in  the  Department  of  Defense.  The 
Users  Manual  provides  instructions  on  operating  and  using  the  DBS,  along  with 
descriptions  of  prewritten  routines  for  generating  specific  reports.  The  system 
is  operational  and  has  been  used  to  develop  reports  for  the  Office  of  the  Assistant 
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